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EDITORIAL 


Chers amis, 


L'Assemblée Générale annuelle du Club aura certainement lieu en Janvier 1988. 
Vous serez informé plus précisément sur le lieu et la date dans le prochain 
numéro, mais tenez-vous prêts. Cette assemblée sera certainement très 
intéressante, beaucoup de points importants seront discutés et décidés. Alors, ne 
la manquez pas ! 


Je suis très content de recevoir vos articles. L'apparition de nouvelles signatures 
dans le Journal est très positif, et montre bien l’activité des membres du Club. 


Souhaitons que les rubriques HP-41 et HP-75 suivent le mouvement... 


En attendant de vous lire, bonne lecture ! 


Pierre David (37) 
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PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se 
réunit une fois par mois, en plein coeur de Paris. 
Amenez votre matériel, votre bonne volonté et vos 
idées ! Plus vous en apporterez, et plus vous en 
trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, 
aucun ordre du jour, discussion ou autre n'étant 
imposé. Un membre du bureau est toujours présent. 
Ainsi, si vous désirez remettre votre article tout frais 
au Journal, si vous avez des suggestions à faire, si vous 
voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un seul 
instant, venez nous rejoindre tous les premiers 
samedis de chaque mois (sauf en période de vacances 
scolaires) au : 

Centre de Jeunesse et de Loisirs Jean Verdier 

11 rue de Lancry 

75010 Paris 

et en montant au deuxième étage, vous entendrez des 
éclats de rire et des discussions passionnées vers la 
salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l’accès en métro, trois possibilités s’offrent à 
VOUS : 

- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ab, j'oubliais ! JPC est (souvent) distribué en avant 
première lors de ces réunions. A bon entendeur, 
salut ! 


Les dates des prochaines réunions sont : 
Samedi 3 octobre 1987 

Samedi 21 novembre 1987 

Samedi 5 décembre 1987 

Samedi 16 janvier 1988 

Samedi 20 février 1988 

Samedi 5 mars 1988 

Samedi 16 avril 1988 

Samedi 7 mai 1988 

Samedi 4 juin 1988 


Pierre David (37) 


AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez pas 
sous quelle forme “l’équipe de rédaction” souhaite 
recevoir votre prose. C’est ici que se trouvent les 
réponses à vos questions. 


Dans la mesure du possible, vous devez nous envoyer 
vos écrits sur support magnétique (carte, cassette ou 
disquette). Soyez sans crainte, nous vous retournerons 
vos biens après copie. 


Si vous ne pouvez pas utiliser de support magnétique, 
ou ne pouvez vous rendre aux réunions, alors et alors 
seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support 
magnétique, ne dépassez pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre 
texte les commandes de formattage suivantes (et non 
les commandes du formatteur HP) : 

"7" centre un titre, par exemple : 
"TITRE 


"\" (CHRS(92)) marque le début et la fin d’un 
paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos 
idées qui, même si vous en doutez, intéressera 
certains des membres du Club. Surtout si vous vous 
sentez débutant. Les articles pour débutants écrits par 
des débutants sont ceux qui manquent le plus. Fin de 


paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le jeu de 
caractères Roman8. Les possesseurs de HP71 
utiliseront les redéfinitions de touches ci-dessous, 
ainsi que le fichier CHARLEX listé dans le coin des 
Lhex en fin de journal. 


Jean-Jacques Dhénin (177) 


DEF KEY ‘fW', CHRS(197); (é) 
DEF KEY ‘fE', CHRS(193);: (&) 
DEF KEY 'fR', CHRS(201); es) 
DEF KEY 'fY!, CHRS(203); cù) 
DEF KEY 'fU', CHR$(195); (ü) 
DEF KEY 'fl', CHRS(209); ci) 
DEF KEY 'f0', CHR$(194); (8) 
DEF KEY 'f/!, CHRS(92); CL 
DEF KEY ‘fA', CHRS(192): (à) 





DEF KEY ‘fS', CHR$(200); (à) 
DEF KEY ‘fD', CHR$(205); (ë) 
DEF KEY ‘fJ', CHR$S(207); cü) 
DEF KEY 'fK', CHR$S(221); ) 
DEF KEY 'f*!, CHR$(124); CD 
DEF KEY ‘fC', CHR$(181); (ç) 





COURRIER DES LECTEURS 


Cher Trésorier, 


Bien sûr que je ne veux pas rater un numéro de JPC ! 
Pour être franc, la plupart des articles sont bien au 
dessus de mon niveau (élémentaire) et pour l’instant, 
je me borne à développer une série de programmes 
de traitement de données, mais je vais 
progressivement me mettre à l’assembleur. Et là, tous 
les articles de JPC me seront alors très précieux. 
Longue vie au PPC Paris Chapter ! 


Amicalement, 


François Dozol (318) 


PS. : le fait que je n’aie assisté qu’à une réunion 
(pour aller chercher le module JPCLEX) n'est pas 
une marque de désintérêt, mais résulte du fait que 
pour participer à ces réunions, il faut avoir un 
problème de même niveau que ceux qui passionnent 
les autres membres et avoir des choses à donner en 
échange, et j'en suis encore loin. 


Réponse du Trésorier 


Détrompez-vous ! Le Club a besoin de toutes les 
expériences. Et surtout de la vôtre ! Beaucoup de 
nouveaux membres se sentent un peu perdus à la 
lecture de JPC. Et vous qui êtes un « ancien » de PPC 
Paris, vous pouvez leur apporter votre expérience, vos 
idées et vos soucis. C’est cela la vocation de PPC 
Paris. 


Si les mêmes personnes écrivent toujours des articles 
parfois incompréhensibles pour la majorité des 
membres, il ne va plus rester qu’un petit noyau au 
Club. Et je vous laisse imaginer la suite. 


Par contre, faire un article, ce n’est pas grand-chose. 
Vous commencez par commenter un programme, ce 
qui est d'habitude le plus simple, et vous faites ensuite 
un mode d'emploi, en vous mettant à la place d’un 
autre et en vous disant : « si je lis JPC, et si je vois ce 
programme, saurais-je lutiliser ? ». Vous mettez 
votre disquette, cassette ou carte magnétique dans 
une enveloppe, et vous nous l’envoyez. Et comme ça, 
vous n’aurez pas besoin d'imaginer ce qui arrivera au 
Club si... 


Quant aux réunions, elles ne sont pas réservées à une 
« élite ». Beaucoup de nouveaux (ou futurs) membres 
y viennent, et trouvent une réponse à leurs questions, 
et apportent la vie nécessaire au Club. 


Encore une fois : votre expérience a autant de valeur 
que celle des autres. Vos problèmes sont partagés par 
beaucoup de membres. Et il y en a beaucoup qui 
seraient heureux de vous lire dans JPC. À commencer 
par moi. 


Et merci pour votre très gentille lettre. 


Amicalement, 


Janick Taillandier (246) 





COURRIER DU COEUR 


PPC-Paris 
B.P. 604 
75028 Paris Cedex 01 


Vend: 

Lecteurs de cartes magnétiques HP82400A neufs 
pour HP-71 (dans leur boîte, avec documentation et 5 
cartes magnétiques) : 500 F seulement. 


1 lot de cartes magnétiques pour HP-41, HP-67, 
HP-97 et même HP-65 : 100 F seulement. 
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Pierre David 

33 Bd St Martin 
75003 Paris 

Tél: (1) 48 87 68 93 


Vend: 
Imprimante 80 colonnes HP82905B + papier + 
étiquettes : 2000 F. 


Convertisseur HP82166A : 1000 F. 


F. Lefebvre 

Société Industrielle de Menuiseries 
55 Haïronville 

55000 Bar Le Duc 

Tél] : 29 70 21 42 


Vend : 
HP-71 : 2500 F + Module éditeur de texte : 250 F. 
Matériel acheté en 1986, livré en 1986. 


Didier Gomiero 
92 allée Modigliani 
77190 Dammarie Les Lys 


Vend: 

HP-71 + Lecteur de cartes + 40 cartes + une pile de 
JPC + beaucoup de programme + 3 jeux de piles 
(batteries) : 3500 F. 


Jean-Pierre Bondu 
Domaine de Croix Marie 
78121 Crespieres 


Vend: 
HP-71 + HP-IL : 3000 F, Module Math : 500 F, 
Lecteur de disquettes HP9114A : 3000 F. 
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TRACE DE FONCTIONS 


Le but de cet article est de répondre à deux critiques 
fréquemment addressées au tracé de courbes sur 
HP-28C : 

- comment empêcher qu’un programme ne s'arrête 
quand survient une erreur Undefined Result, 

- comment accéder aux fonctions de contrôle du 
curseur : en particulier la digitalisation, après un tracé 
effectué par programme, tel qu’un tracé en 
coordonnées polaires. 


Les deux cas seront illustrés par des exemples. 


Le premier point est partiellement traité dans le 
Manuel de Référence, sous 1FTE dans le menu 8RANCH. 
L’expression ‘IFTE(X<>0,SIN(X)/X,1)' stockée dans EQ 
permet de tracer sin x /x sans erreur Undefined Result 
quand x = 0. 


Le problème est plus complexe si vous ne savez pas 
d'avance pour quelles valeurs de x une erreur risque 
de se produire, ou même quelle erreur parmi 
plusieurs possibles. Certaines peuvent être ignorées 
en levant les flags appropriés, mais ceci n’est pas 
valable dans tous les cas. 


Une solution est d’inclure la fonction algébrique dans 
une clause 1FERR faisant partie d’un programme (ceci 
n’est pas possible dans une équation algébrique : c’est 
une commande et non une fonction). 


Si un programme est écrit en utilisant des variables 
locales et la commande PIXEL, un autre problème voit 
le jour : c’est notre deuxième sujet. 


Si vous voulez pouvoir déplacer le curseur après avoir 
tracé une courbe et digitaliser certains points, vous 
devez absolument utiliser DRAW au clavier depuis le 
menu PLOT. Quand DRAW est utilisé dans un 
programme, il n’a pas les mêmes fonctionalités, c’est 
pourquoi vous devez utiliser CLLCD ou DRAX. 


Pour utiliser DRAW depuis le clavier, vous devez définir 
votre courbe dans EQ. 


Pour conserver les possibilités de la fonction DRAW tout 
en utilisant un programme, vous devez garder à 
l'esprit un paragraphe du Manuel de Référence 
(section PLOT) : «si EQ contient un programme. [... 
il] obéit à la syntaxe d’une expression algébrique : il 
ne peut prendre aucun argument dans la pile et doit 
renvoyer un et un seul objet dans la pile». 


Pour terminer, voici quelques exemples. 


Interception d'erreur 
Stockez dans EQ le programme suivant : 


« 


IFERR 
F EVAL F contient la foction à tracer 
THEN 
DROP2 enlève Les arguments en erreur 
0 valeur par défaut 
END 


» 

Essayez avec F contenant ‘SIN(x)/x' et les valeurs par 
défaut de PPAR en mode radians. 

Fonctions paramétriques 

EQ contient : 


« 


U EVAL calcule La coordonnée horizontale 
V EVAL calcule la coordonnée verticale 
R-C combine Les deux pour PIXEL 

PIXEL trace Le point 

A retourne un objet sur La pile 


Si A contient une constante, il y aura tracé d’une ligne 
horizontale. Essayez, par exemple, avec : 


U: 'COS(X)+IP(2*X/3.14159)! 
V: 'SIN(X)! 


Courbes polaires et cartésiennes 


Dans l'exemple précédent remplacez le À final par F 
EVAL. 


Dans les trois cas, vous pouvez ajouter 36 cF en début 
de programme et supprimer tous les EvAL. Vous 
pouvez utiliser DRAW et digitaliser ce que vous voulez 
ensuite. Bien entendu, vous pouvez mixer 
linterception d'erreurs et le tracé de courbes 
paramétriques. 


Michel Maupoux 
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UTILITAIRES DE GESTION 
DE DISQUES 
(ACTE I) 


Le module HP-IL pour HP-41 a été programmé en 
pensant au lecteur de cassettes HP82161. A cette 
époque, l'implémentation du standard HP-IL / LIF 
était encore en cours de développement. Aussi, il 
n’est pas surprenant que certaines fonctions de 
gestion d'unités de stockage de masse (WRTP, CREATE, 
WRTS, WRTA, WRTK, WRTPV et NEWM) ne fonctionnent pas 
toujours avec des appareils plus récents. 


En particulier, les commandes qui créent de nouvelles 
entrées dans le catalogue supposent que le support 
magnétique contient au plus 1FF secteurs (en 
hexadécimal). En pratique, ceci signifie que vous ne 
pouvez ajouter un fichier commencant au secteur 200, 
ou au dela, à moins que le catalogue ne contienne un 
fichier purgé de la taille adéquat. 


NE“M permet de créer des catalogues ne pouvant 
contenir que 7 à 447 fichiers. Ce dernier chiffre vous 
donne le nombre maximum de fichiers de 1 secteur de 
long que vous pouvez stocker sur la cassette. Dans ces 
conditions, un disque 3,5 pouces pourrait contenir 
environ 2188 fichiers ! Bien entendu, des 
considérations telles que le temps d'accès aux fichiers, 
l'usure du support et le confort de l'utilisateur 
conduisent généralement à limiter la taille de 
catalogue des supports utilisés avec un HP-41 bien en 
dessous de la limite des 447 fichiers. Cependant il 
peut être utile pour certaines applications de disposer 
de très gros catalogues. Les techniques permettant de 
les utiliser seront décrites dans la deuxième partie de 
cet article. 


Les utilitaires présentés ici utilisent le module 
Extended IO pour résoudre ces problèmes. La 
fonction xToA (du module Extended Functions) peut 
être remplacée par son équivalent xToar. Mis à part ce 
module, vous n’avez besoin que d’un module HP-IL, 
que vous utiliseriez de toute manière pour accéder 
aux unités de stockage de masse. 


Le premier utilitaire, NEWMED, peut être utilisé pour 
modifier la taille du catalogue d’un support qui vient 
juste d’être formatté. Le second programme améliore 
les fonctions qui ajoutent un fichier au support de 
masse, de telle manière que vous puissiez accéder à 
toute la capacité de stockage d’un support. 
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MODIFICATION DE TAILLE DU CATALOGUE 


NEWMED est un programme indépendant parce que vous 
n’en avez besoin que lors de l’initialisation du support. 
Vous pouvez également utiliser ce programme à tout 
moment mais ceci risque de faire disparaître certains 
de vos fichiers. Je n’ai pas poursuivi d’études dans ce 
domaine : vous vous y aventurerez à vos risques et 
périls ! NEWMED ne doit être utilisé qu'après 
l'initialisation du support, sinon l'adresse du premier 
fichier ne correspondra pas à la taille du catalogue. 
Celui-ci risque alors de venir se superposer à vos 
premiers fichiers. Respectivement, si vous essayez 
d'écrire dans ces fichiers, vous risquez de corrompre 
le catalogue, si bien que DIR ne fonctionnera plus 
correctement. Diminuer la taille du catalogue est 
moins dangereux mais ne perdez pas de vue que vous 
ne pourrez probablement pas utiliser l’espace libéré 
par le catalogue. 


NEWMED prend un nombre de fichiers dans le registre X, 
calcule le nombre de secteurs necéssaires pour le 
catalogue et modifie l’octet donnant la taille du 
catalogue dans le secteur 0 du support. 


NEWMED utilise CLRDEV pour se positionner sur le secteur 
0. Ainsi, les lignes 15 à 22 sont a peu près équivalentes 
à 19 xea 95 dans le second programme, c’est à dire 
aller à l’octet 00013,;. Le mode écriture partielle est 
activé par 6 DEVL, la nouvelle taille est enregistrée sur 
le support aux lignes 23 à 26. CLRDEV remet le lecteur 
dans un état connu, ce qui est toujours une bonne 
idée avec ces appareils. 


LES PROGRAMMES D'ECRITURE 


Ces programmes ont été conçus pour être aussi 
transparents que possible pour l'utilisateur. Les 
ordres en assembleur sont utilisés, si possible, pour 
minimiser autant que faire se peut le temps 
d'exécution et l’utilisation de la mémoire. Ces 
programmes s’utilisent exactement comme leur 
équivalent système. 


Vous pourrez noter que je n’ai pas cherché à fournir 
une nouvelle commande wRTPv. Il y a à ceci plusieurs 
raisons : d’abord, les fichiers privés compliquent la vie 
lorsque vous voulez faire une copie de votre support. 
Ensuite, écrire cette nouvelle version de WRTPv 
demande 25 octets supplémentaires : ce programme 
est déjà bien assez long sans cela ! (382 octets). 


C’est au moment de franchir la barre fatidique des 
512 secteurs que vous aurez besoin de ce programme. 
Quand vous verrez apparaître MEDM FULL, il sera temps 
de le charger. En tout il utilise 20 % de la mémoire de 
la machine. Il peut y avoir des situations où ceci n’est 


pas acceptable. Si tel est votre cas, vous pouvez créer 
des fichiers de données d’une taille convenable pour 
un usage ultérieur. Ces fichiers seront purgés quand 
vous voudrez inscrire un nouveau fichier sur le 
support. Une fois une entrée d’une taille convenable 
purgée du catalogue, les fonctions de base de la 
machine pourront effectuer normalement leur travail. 
Ce programme est, en fait, uniquement indispensable 
pour écrire de nouvelles entrées. 


Ces fonctions ont été écrites pour minimiser l’espace 
reservé à un nouveau fichier. Ceci est très important 
car les fonctions système ne modifient pas cette 
valeur. Il est parfaitement plausible de stocker un 
fichier de 10 octets à la place d’un fichier de données 
de 20000 registres. L'espace perdu ne peut plus être 
récupéré à moins de purger le fichier. Ensuite, les 
ordres Pack du HP-71 ou du HP-75 constituent la 
meilleure solution à votre problème. 


Un peu de théorie 


La création d’une entrée de fichier valide est un 
processus relativement complexe. D’abord, vous 
devez parcourir le catalogue pour trouver soit une 
entrée correspondant à un fichier purgé de taille 
convenable, soit la première entrée non utilisée du 
catalogue. Une fois que ceci est fait, vous devez vous 
assurer qu’il ne s’agit pas de la toute dernière entrée 
du catalogue qui est réservée au système. Il faut 
ensuite calculer l'adresse de début du nouveau fichier. 
C’est, soit la taille du catalogue + 2 pour le premier 
fichier, soit la somme de l’adresse de début du dernier 
fichier et de sa longueur en secteurs. Il faut vérifier 
également qu’il y a la place sur le disque pour stocker 
le fichier. Ce dernier point est important en raison du 
problème de bouclage en mode lecture ou écriture 
continue qui pourait détruire votre catalogue. Après 
tout ceci, vous êtes prêt à écrire le nouveau fichier sur 
le support ou à sortir avec un message d'erreur 
approprié. 


J'ai pu résoudre ces problèmes tout en économisant 
beaucoup de mémoire en étudiant soigneusement les 
conditions qui provoquent le message MEDM FULL. Les 
fonctions assembleur ont déjà vérifié l’existence d’un 
fichier purgé convenable et les pointeurs de l'unité de 
stockage sont laissés à l’adresse de la première entrée 
disponible plus 288 octets. Ainsi, il est possible 
d'éviter une longue recherche entrée par entrée. Dès 
que cette information est recupérée, il est facile 
d'obtenir l'information permettant de créer une 
entrée purgée fictive. 


La longueur en secteurs est fixée pour les fichiers de 
statut (1 secteur) et les fichiers “write-all" (11 
secteurs). La quasi-totalité des fichiers d’assignation 
de touches font 1 secteur. Mais, s’il y a plus de 65 
définitions, 2 secteurs sont nécessaires. Vous pouvez 
soit traiter ce cas soit, comme je l’ai fait, supposer que 
ces fichiers ne feront pas plus de 1 secteur afin 
d'économiser la mémoire. 


Cette solution simpliste ne peut être acceptée dans le 
cas des programmes dont la longueur peut varier de 1 
à 9 secteurs. Vous devez donc dimensionner le fichier 
de manière convenable. Il serait idéal de pouvoir 
obtenir les données avec une fonction assembleur 
telle que rcLPTA. Ceci suppose que le programme soit 
en mémoire étendue, mais celle-ci peut ne pas être 
disponible. Une autre solution serait d'utiliser la 
fonction PPLNG du module CCD ou un équivalent. J'ai 
choisi une solution qui ne recourt qu’au module 
Extended IO : on commence par supposer que le 
programme fait 9 secteurs, on l'écrit sur le support, 
on obtient de l’entrée correspondante du catalogue la 
longueur du fichier en octets puis on met à jour la 
longueur en secteurs en fonction de cette valeur. 

Les fonctions PPLNG et XToAH du CCD ROM peuvent 
faire gagner au moins 30 octets. 


Mode d'emploi 


Les labels WRTP, WRTK, WRTS et WRTA doivent être présents 
en mémoire principale pour inhiber l’action des 
fonctions homonymes du module HP-IL. Vous 
pouvez utiliser les nouvelles fonctions exactement 
comme leurs équivalents standards. En fait vous 
n’utiliserez les nouvelles fonctions que si le système 
détecte une erreur. Un certain nombre de sécurités 
existent : 

1- Vous obtiendrez ADR ERR s’il n’y a pas de lecteur. 

2 - Le message NO RESPONSE est émis si l’appareil est 
un lecteur de cassettes HP-82161. 

3 - Le secteur du catalogue devant être utilisé est 
vérifié pour s'assurer que cela est possible (entrée 
purgée ou non utilisée). 


J'ai fait très attention à rendre ce programme aussi 
insensible que possible aux problèmes. Vous devez 
pouvoir l’interrompre ou l'utiliser en mode trace (en 
mode AUTOI0) sans inconvénients. Cependant, si vous 
modifiez la pile ou le contenu des registres 0 à 7, je 
vous recommande d'exécuter CLRLOOP et de 
recommencer le programme. 


Utilisation des flags 
Les flags 25 et 34 sont effacés (flag d’erreur et 


indication du mode AbRON. Les autres flags sont 
inchangés. 
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Registres d'état 


Le registre ALPHA est utilisé puis restauré. La pile 
est utilisée. 


Utilisation des registres 


00 : Longueur du fichier en secteurs 

01 à 03 : Noms de fichiers du registre ALPHA 
04 : Adresse de la nouvelle entrée 

05 : Nombre maximum de secteurs sur le support 
06 : Premier secteur pour le nouveau fichier 

07 : Premier secteur pour le premier fichier 


Lignes synthétiques 


116 : 255, 68, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 0, 0, O, O. 

121 : 243, 127, 0, O. 

163 : 242, 68, 0. 

180 : 242, 68, 0. 


Description détaillée 


Les lignes 1 à 4, 27 à 31, 45 à 49, 54 à 58 et 64 à 67 
répondent au même but : donner la possibilité aux 
commandes en assembleur de réaliser leur fonction. 
Si tout se passe bi:n, le programme se termine 
normalement sans modifier la pile ou les registres de 
données. 


Les 4 lignes suivantes fournissent la taille par défaut 
du fichier, appellent le sous-programme qui crée une 
entrée fictive dans le catalogue de la bonne longueur 
et essaie à nouveau d’appeler la commande standard. 
A ce moment vous pouvez encore obtenir DIR FULL ou 
MEDM FULL, Si c’est le cas, le message n’est alors que 
trop vrai. 


Le travail est terminé à moins qu’il ne s’agisse d’un 
programme. Les lignes 9 à 14 récupèrent la taille du 
programme à partir de l'entrée dans le catalogue : les 
registres X et Ÿ contiennent cette taille dans un 
format "secteurs et octets". La plupart du temps, il 
suffit simplement de récupérer le premier octet et de 
l’incrémenter de 1. Le calcul exact (lignes 15 à 19) 
prend seulement 4 octets supplémentaires. Cette 
information est ensuite utilisée pour modifier la 
longueur en secteurs dans le catalogue (lignes 19 à 


26). 





La création de l'entrée fictive débute à la ligne 72. La 
longueur proposée pour le fichier est stockée dans le 
registre 0 pour utilisation ultérieure et le disque est 
selectionné comme unité primaire. Le nom de fichier 
est copié du registre ALPHA vers les registres 1 à 3. 
Une dernière vérification est faite pour s’assurer que 
l'appareil selectionné n’est pas une unité de cassettes : 
si tel est le cas vous obtenez le message NO RESPONSE 
lors de l’exécution de la fonction 1b en ligne 82. 


Il nous faut maintenant obtenir les valeurs de 
pointeurs du lecteur (lignes 83 à 88) et calculer le 
nouveau secteur de départ (lignes 89 à 95). Les lignes 
96 à 99 obtiennent le plus grand numéro de secteur 
du support. Le DDT 7 devrait être implémenté par tous 
les appareils de stockage de masse qui ne sont pas 
équivalents au lecteur de cassettes. Ceci signifie que 
ce programme devrait fonctionner avec tous les 
appareils de stockage de masse. 


Les lignes 100 à 105 lisent la taille du catalogue et 
calculent le secteur de départ du premier fichier ; 
celui-ci est stocké dans le registre 7 pour une 
utilisation ultérieure éventuelle. 


Les lignes 106 à 113 déterminent le type du fichier 
correspondant à l’entrée que l’on veut reécrire. Si ce 
type n’est pas 0000, ou FFFF;, le fichier n’est ni 
purgé ni inutilisé : il est temps de sortir avant de faire 
une bétise. 


Finalement, les lignes 114 à 142 construisent la fausse 
entrée de fichier purgé dans le registre ALPHA et 
l'envoie sur le support. Ceci se fait en positionnant 
d’abord le lecteur au début de l’entrée et en passant 
en mode écriture partielle (RCL 04 xEQ 95). Ensuite un 
nom de fichier et le type "fichier purgé" sont stockés 
dans le registre ALPHA à la ligne 116. Cette ligne 
synthétique est faite d’un D, de 10 espaces et de 4 
octets nuls. 


Les lignes 117 à 120 déterminent le bon secteur de 
début et et l’ajoutent à l’entrée toujours en 
construction dans le registre ALPHA. On calcule 
ensuite (lignes 121 à 130) la longueur du fichier en 
s’assurant qu’il y a assez de place sur le disque. Si la 
longueur proposée est trop importante, on gardera 
une longueur correspondant à la place encore 
disponible. Ce choix est guidé par les fichiers 
programmes qui sont généralement beaucoup moins 
gros que les 9 secteurs qui constituent la valeur 
d'essai. 


C’est tout ce dont vous avez besoin pour une entrée 
fictive. Vous pouvez stocker l'entrée sur le disque 
(lignes 131 à 136), remettre à zéro l'appareil et 
restaurer le contenu du registre ALPHA pour la 
seconde tentative d'utilisation des fonctions standards. 





Les sous-programmes 


Les sous-programmes constituent le coeur de ce 
programme. Ils forment ensemble un éditeur de 
support de masse puissant. Soyez prudent si vous les 
utilisez : en fonction du contrôleur qui devra accéder 
aux fichiers, vous risquez de devoir reprendre 
certaines sommes de contrôle pour éviter de sérieux 
problèmes (les fichiers du HP-75 sont 
particulièrement sensibles à ce problème). 


- Sous-programmes de conversion : 

Le LBL 91 convertit une adresse entière en deux octets 
qui sont ajoutés au contenu du registre ALPHA. 

Le L8L 92 lit 4 octets depuis le lecteur et convertit les 
2 derniers octets en un entier retourné dans X. 

Le L8L 93 effectue la même tâche mais ne garde que 
les deux derniers octets des 23 envoyés. 


Ces trois sous-programmes vous permettent, entre 
autres avantages, de gérer l'adresse disque comme un 
seul nombre et non comme trois éléments séparés 
(piste, secteur et pointeur d’octets). L'espace adresse 
du disque HP-IL est représenté par trois octets. 
cependant, les catalogues actuellement existant ne 
font qu’une utilisation partielle de la piste logique 0. 
Ceci nous permet de nous interesser seulement aux 
deux derniers octets lors de la modification des 
entrées de catalogue. 


- Sous-programme de lecture de données depuis le 
support : 

Le L8L 9%4 est le coeur du transfert des données depuis 
le support, en commencant à une adresse donnée 
dans le registre X. Comme le mode DDT 1 est utilisé, 
l'utilisateur doit gérer lui-même les frontières de 
secteur après avoir lu le 255è"€ octet de 
l'enregistrement, vous continuez avec l’octet O0 du 
même enregistrement. L'avantage essentiel de cette 
méthode est que vous pouvez positionner le pointeur 
d’octets selon vos besoins. 


- Sous-programmes de stockage de données sur le 
support : 

Le LBL 95 est utilisé pour stocker des données sur 
disque à partir de l’adresse donnée dans le registre X. 
Le LB8L 98 est utilisé en liaison avec le LBL 95 pour 
transférer les données envoyées au buffer 0 de 
l'appareil sur le support. Ce sous-programme 
continue dans le LBL 00 qui remet à zéro l'appareil et 
restaure le registre ALPHA. 


Remarque générales 


Le programme HP-41 10 HP-9114 Utiliy (Users 
Library numéro de catalogue 41-09114-7) m’a fourni 


le cadre général qui m'a permis de réaliser cet 
ensemble d’utilitaires Mes remerciements aux 
auteurs. 


Une étude attentive des sources assembleur du 
module HP-IL m'a fourni les indications qui m'ont 
permis de réduire la taille du programme (de 903 à 
382 octets), de l’accélerer substantiellement tout en 
ajoutant de nombreuses sécurités. 


Si vous souhaitez disposer d’un WRIPV vous pouvez 
ajouter au début du programme les instructions 
suivantes : 


LBL MWRTPV SF 25 WRTPV FS?C 25 RIN 9 XEQ 01 
WRTPV GTO 09 


LBL MWRTP" SF 25 WRTP FS?C 25 RTN 9 XEOQ 01 
WRTP LBL 09 RCL 04 ... 


Ceci vous permet d'utiliser le code commun de la 
manière la plus efficace. 


Michael Markov (301) 


Le programme de modification de taille du 


catalogue : 


O1*LBL "NEWMED' 

8 / 1 + ENTER” INT X#Y? ISGX "" 16 
FINDAID SELECT ID ŒCLRDEV 3 DEVL 19 OUTXB 
R* 6 DEVL X<>Y OUTXB 8 DEVL CLRDEV END 


Les utilitaires d'écriture de fichiers : 


O1*LBL MWRTP" 

SF 25 WRIP FS?C 25 RIN 9 XEQ 01 WRTP RCL 04 
28 + XEQ 94 INXB INXB X#0? ISG Y "" X<>Y 
STO 00 RCL O4 19 + XEQ 95 RCL 00 OUTXB 

GTO 98 


27*LBL "CREATE" 

SF 25 CREATE FS?C 25 RIN 32 / ENTER® INT 
X#Y? ISG X "" XEQ 01 RCL 00 32 %* CREATE 
RTN 


45*LBL "WRTS!" 

SF 25 VWRTS FS?C 25 RIN 1 XEQ 01 WRTS RTN 
Sé*LBL "WRTK!! 

SF 25 WRIK FS?C 25 RIN 1 XEQ 01 WRTK RTN 
63*LBL "WRTA!! 


SF 25 VWRTA FS?C 25 RIN 11 XEQ 01 WRTA RTN 
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7e*LBL 01 

STO 00 16 FINDAID SELECT ASTO 01 ASHF 

ASTO 02 ASHF ASTO 03 ID 3 DEVT XEQ 93 288 

- STO 04 20 - XEQ 94 XEQ 92 STO 06 XEQ 92 
ST+ 06 7 DEVT XEQ 92 STO 05 19 XEQ 94 INXB 
2 + STO 07 RCL 04 XEQ 94 12 XEQ 93 255 MOD 
X#0? GTO 00 RCL 04 XEQ 95 "D Le 

RCL 06 X=0? RCL 07 XEQ 91 “1  RCL 05 

RCL 06 - X<0? O RCL 00 X>Y? X<>Y XEQ 91 20 
OUTAN 


133*LBL 98 
8 DEVL 


136*LBL 00 
CLRDEV ŒCLA  ARCL 01 ARCL O2 ARCL 03 RTN 


143*LBL 91 
STO Y 256 / XTOA X<> L MOD XTOA RTN 


152*LBL 92 
4 


154*LBL 93 
INAN ATOXR ATOXR 256 * + RTN 


162*LBL 94 
"D" XEQ 91 4 DEVL SORT OUTAN DEVT 5 DEVT 
3 DEVL ATOXR OUTXB SIGN DEVT RTN 


179*LBL 95 
"D" XEQ 91 4 DEVL SORT OUTAN 3 DEVL ATOXR 
OUTXB 6 DEVL END 





HP75 


E. Gengoux 


L’article est-il au catalogue ? 
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L'ARTICLE 
EST-IL AU CATALOGUE ? 


Les heureux possesseurs de VisiCALC disposent 
d'une fonction géniale, INCAT(fichier type), qui 
renseigne sur la présence ou l’absence d’un fichier et 
sur son type. Hélas, elle ne marche que sur des 
fichiers en mémoire et, pour avoir un équivalent pour 
disquette ou cassette, il faut utiliser un Lex (c'est 
MADLEX). Et, malheureusement, ça ne marche pas 
pour le Pod ou le PMS... 


Reprenant une idée qui avait été développée par 
Richard Harvey pour le HP-71, voici un petit utilitaire 
Basic (151 octets), sous forme de su8 (donc Rom 1/0 
obligatoire), que l’on pourra invoquer pour tester si 
un fichier HP-75 est ou non présent. Que ce soit dans 
un programme ou au clavier, faire par exemple : 


CALL "INCATIÇ(NTOTO:M2",TS$) 


Au retour, T$ contiendra soit la lettre caractérisant le 
type du fichier s’il existe (soit B, I, G, L, R, T, W 
ou ?), soit le chiffre 0 si le fichier n’est pas présent (ou 
que son spécificateur n’est pas le bon)... 


Comment est-ce possible ? Simplement en 
demandant le cAT du fichier et en le capturant dans le 
buffer d’affichage, au moyen de la fonction 8uF$ de la 
Rom 1/0. Ce buffer fait 96 octets de longueur (soit 3 
fois la fenêtre d’affichage du 75), et le type est en 
douzième position. Si le fichier n’est pas trouvé, CAT 
génère une erreur, exploitée par la ligne ON ERROR afin 
de ne pas arrêter le programme appelant (dans ce cas, 
T$="0’). Et c’est tout ! 


Ab, si ! Ne chargez jamais ce programme dans un 
PMS ou une Eprom : BUF$ et su8 font partie de ces 
instructions qui, exécutées à partir du PMS, créent 
des désastres. Voir à ce propos le cas de ExIT.. En 
l'occurence, on obtient l’erreur Not enough memory et 
un plantage qui résiste à [SHIFT] [CTL] [CLR], et il faut 


alors retirer la batterie. 


Avantage majeur de ce programme : il est beaucoup 
plus rapide que la méthode consistant à dérouler une 
boucle du style : 


FOR 1=1 TO INF 
CS=TCATS(I,':M1') 
IF C$ … 

NEXT 1 


et, surtout, fait beaucoup moins souffrir la batterie de 
votre drive et les pistes où réside le catalogue. 
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SUB "'INCAT'(F$,7$) 

DIM B$(96],T$[1] 

ON ERROR GOTO 60 

CAT F$ à B$=BUF$('L') 
T$=8$(12,12] à GOTO 70 
OFF ERROR à T$='0! 

END 


Eric Gengoux (108) 
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L'ASSEMBLEUR DU HP-71 
(ACTE IV) 


Comme je l’ai dit dans mon article du mois dernier, 
aujourd’hui nous allons parler des fichiers Lex. Dans 
un premier temps nous allons voir ce qu’est un fichier 
Lex, comment on le constitue, quel est son rôle. En 
deuxième partie, nous verrons comment il fonctionne 
au sein du HP-71. En troisième lieu, j’expliquerai 
quels sont les intérêts des Lex, quels sont les 
différents types qui peuvent exister. Enfin nous 
verrons en détail le chemin à suivre pour écrire un 
Lex et, au niveau pratique, comment apporter 5 
nouvelles instructions au Basic du HP-71. 


Qu'est ce qu'un Lex ? 


Avant d'entrer plus en détail dans le sujet, voyons 
d’abord ce qu’est un Lex. Comme les fichiers Bin dont 
j'ai parlé dans les articles précédents, les Lex sont des 
programmes écrits en assembleur. Ainsi, comme ces 
derniers, ils permettent d’avoir en contrôle total des 
ressources du HP-71. Vous vous demandez alors ce 
qu’ils apportent de plus. Si vous lisez JPC 
régulièrement, vous avez sans doute remarqué 
l'abondance de fichiers Lex. Ceci a une raison. 


Les fichiers Lex permettent d’apporter de nouvelles 
fonctions au Basic, ce qui fait leur attrait. Simplement 
en écrivant un Lex et en l’assemblant, ou plus simple 
encore, en le copiant d’une carte ou d’une disquette, 
on apporte une ou plusieurs instructions au Basic de 
base déjà bien riche. Par exemple, les modules 
additionnels de Rom comme les modules HP-IL, 
Math et le module JPC sont simplement de gros 
fichiers Lex qui contiennent plusieurs dizaines de 
nouvelles instructions. Lex veut dire en fait Language 
EXtension et on comprend maintenant pourquoi. En 
résumé, je dirais que les Lex sont des fichiers 
programmes qui permettent d’enrichir le vocabulaire 
du HP-71. 


Pour que cela soit possible, il faut que les Lex soient 
pris en compte par le système d'exploitation du HP-71 
et c'est ce qui se passe. De la même façon que les 
fichiers Bin, les Lex sont écrits en assembleur, mais le 
système d’exploitation les traite différemment. 


Comment les Lex sont-ils pris en compte par le 
HP-71? 


A chaque fois que l’on allume son HP-71, il se passe 
un tas de choses que l'utilisateur ne soupçonne pas. 





En particulier, une routine de configuration est 
exécutée. Le rôle de cette routine est de reconnaître 
l'environnement du HP-71, c’est à dire tous les 
modules de Ram ou de Rom qui sont connectés ainsi 
que tous les Lex présents en mémoire. Cette routine 
est très rapide, elle s’exécute entre le moment où l’on 
appuie sur [ON] et le moment où le curseur apparaît. 
Si l'environnemnt du HP-71 a beaucoup changé 
depuis le dernier allumage, alors la routine mettra 
plus de temps et ceci pourra être visible. 


Pour aujourd’hui, je n’entrerai pas en détail sur le 
fonctionnement de cette routine de configuration. Ce 
qu’il faut savoir, c’est que chaque Lex contient avant 
le programme assembleur en lui-même, une partie 
décrivant ce qu’il contient (les nouvelles instructions 
qu’il apporte, leur nombre, etc...). J’appellerai cette 
partie le descripteur. A chaque configuration, ce 
descripteur est exploré et certaines informations sont 
rangées dans un buffer appelé Lex Entry Buffer ou 
bLEX. Ce buffer est très important. A chaque fois 
qu'une instruction est entrée au clavier ou exécutée à 
partir d’un programme Basic, le HP-71 consulte ce 
buffer pour savoir si cette instruction existe et où se 
trouve son emplacement en mémoire. Nous ne 
verrons pas en détail aujourd’hui la structure du 
bLEX. Ceci fera, j'espère, le sujet d’un prochain 
article. 


Pourquoi écrire des Lex ? 


Comme je l'ai dit dans un précédent article, les 
programmes écrits en assembleur permettent, d’une 
manière générale, de faire des choses difficiles à 
réaliser en Basic, par exemple. En effet, on a un 
contrôle total de l’environnement de la machine. On 
peut ainsi écrire pour les besoins d’un programme ou 
pour des raisons pratiques un petit Lex apportant une 
ou plusieurs instructions. On a ainsi l’avantage de la 
rapidité d'exécution mise au niveau du Basic. De plus, 
une nouvelle instruction peut rendre un programme 
beaucoup plus lisible, comme lors de l’utilisation de 
sous programmes, mais aussi plus court. 


Structure d’un fichier Lex 


Je sais que vous êtes pressés d’en savoir plus sur les 
Lex alors entrons tout de suite dans le vif du sujet. 
Comme pour l'écriture d’un Bin, il faut, lors de 
l'écriture d’un Lex, respecter une certaine structure 
dans le fichier source. Le fichier source suivant 
permet de voir à quoi ressemble un Lex d’une façon 
générale : 





LEX "EXEMPLE! 
1D #5C 
MSG msglbl 
POLL  pollbl 
ENTRY Label1 <-- 
CHAR  ? | 

: | 
ENTRY lLabeln | <-- 
CHAR  ? | 

| 


KEY 122222! <-- 


TOKEN 7? 
KEY 122222! €. 
TOKEN ? 
ENDTXT 
msglbl È <-- 
| Table de messages 
<-- 
pollbl : <-- 
| Routine d'inteception 
: | de polis 
: <-- 
<infos> 
label 1 : <-- 
: | 
: | Instruction 1 
: | 
<fin> <-- 
<infos> 
labeln  : <-- 
: | 
î | Instruction n 
: | 
<fin> <-- 
END fin du fichier source 


Voyons maintenant en détail la signification de toutes 
ces directives destinées au programme d’assemblage. 


LEX suivi d’un nom de fichier entre guillemets indique 
à l’assembleur de créer un fichier de type Lex. 








Chaque instruction du Basic du HP-71 possède un 
code de deux octets qui permet de l'identifier. Le 
premier octet est appelé numéro d’id (à prononcer 
ayedi) pour identificateur et le deuxième token. En 
général, et comme cela était le cas pour la HP-41, le 
numéro d’id correspond à un numéro de module et le 
numéro de token à un numéro d'instruction dans le 
module. Par exemple la Rom système est composée 
de deux modules did 0 et 1, le module Forth / 
Assembleur a pour id 43 et l’'HP-IL 255. On peut 
mettre ce que l’on veut comme numéro d’id et de 
token, pourvu qu’une fonction ou ordre déjà existant 
n’ait pas les mêmes id et token ce qui pourrait 
entraîner des problèmes. HP conseille d’utiliser les 
numéro d'id 5C à 5F en hexadécimal pour le 
développement de Lex. C’est ce que j'ai fait ici en 
indiquant id #5C en ligne 2. 


La directive MSG msglbl indique que le Lex contient 
une table de définitions de messages d'erreurs placée 
à partir de l’étiquette msglbl et POLL pollbl indique 
qu’une routine d’interception de poll est placée dans 
notre Lex. Pour ceux qui se demandent ce qu'est un 
poll, je dirai que c’est une sorte d'interrogation 
qu’effectue le HP-71 en des occasions bien 
particulières aux Lex présents en mémoire. Ne vous 
inquiétez cependant pas, j'écrirai un article sur le 
fonctionnement des polls ainsi que sur les tables de 
messages. 


Les quatre directives suivantes (ENTRY, CHAR, KEY, TOKEN) 
sont à répéter autant de fois qu’il y a d’instructions 
dans le Lex. 


On place d’abord autant de paires ENTRY, CHAR que 
d'instructions. Puis le même nombre de paires KEY, 
TOKEN en faisant attention à respecter l’ordre. 


La directive ENTRY indique le point d'entrée de 
l'instruction. Par exemple, ENTRY Label1 indique que le 
code de la fonction se trouve à partir de l'étiquette 
label. 


CHAR suivi d’une valeur de 0 à F donne la valeur du 
characterization nibble. Ce quartet de caractérisation 
d’un point d’entrée indique son statut, à savoir quels 
sont les droits de l’instruction à laquelle il correspond. 
Mais nous allons voir ça plus loin avec un exemple. 


KEY indique la suite de caractères qu’il faudra utiliser 
pour appeler notre fonction. 


TOKEN suivi d’une valeur de O0 à FF indique que le 
numéro de token de notre instruction. 


Enfin, ENDTXT indique la fin de la partie de description 
de notre fonction. 
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Toutes les informations situées avant ENDTXT servent à 
l’assembleur à fabriquer le descripteur du Lex dont 
j'ai parlé plus haut. Derrière ENDTXT sont placées les 
mnémoniques du programme qui réalise la ou les 
instructions. 


labell est le point d’entrée de la première instruction 
et /abeln celui de la dernière. Comme pour des 
programmes écrits en Basic, on peut placer dans un 
Lex des sous-programmes qui peuvent être ainsi 
utilisés par plusieurs instructions. 


Devant chaque point d’entrée d’une instruction, on se 
doit de placer ce que je que j'ai appelé info. En fait, il 
s'agit de quelques quartets contenant des 
informations concernant l'instruction que le HP-71 
viendra lire. Je reviendrai plus loin sur ce point. 


Pour ceux qui veulent en savoir plus sur la structure 
des Lex et en particulier sur le descripteur, je 
conseille la lecture du début du paragraphe 6.1 (Lex 
File Structure) des ZDS I page 6-1. Vous pouvez 
égalament relire l’article de ce cher Pierre David dans 
le numéro 39 de JPC de novembre 1986 page 17. 


Les fonctions 


Il existe trois types d'instructions qu’un Lex peut 
apporter. On trouve en premier lieu les mots qui ne 
sont pas des instructions à proprement parler. Par 
exemple ON, OFF, TO, FLOW, VAR etc. sont des mots. 
Ensuite, on a les ordres appelés statements en anglais. 
Les ordres indiquent au HP-71 de faire quelque 
chose. Dans cette catégorie on trouve, par exemple, 
BEEP, COPY, DISP, PURGE etc. Les ordres sont faciles à 
distinguer : ils font quelque chose mais ne renvoient 
rien. Leur syntaxe varie beaucoup, elle peut être 
simple comme RETURN ou bien plus complexe comme 
CAT OU BEEP. 


La troisième catégorie comprend les fonctions. 
Contrairement aux ordres, celles ci renvoient quelque 
chose : des valeurs numériques ou alphanumériques. 
La syntaxe des fonctions varie peu, une fonction peut 
ne pas avoir de paramètre et renvoyer un nombre 
comme DATE ou une chaîne comme DATES. Elle peut 
aussi avoir un ou plusieurs paramètres comme Max et 
MIN (qui renvoient des nombres) ou PEEK$ (qui renvoie 
une chaîne de caractères). Les paramètres eux aussi 
peuvent être de natures différentes : numérique ou 
alphanumérique. En règle générale, la syntaxe des 
fonctions est la suivante : les paramètres sont placés 
entre parenthèses et séparés par des virgules. Les 
fonctions qui renvoient de l’alphanumérique prennent 
un $ à la fin comme DATES, PEEKS, DTHS, etc. De plus, 
sur le HP-71 les fonctions se comportent comme si il 
y avait un ordre D1ISP implicite devant. En effet, si l’on 





tape PI le HP-71 comprend D1ISP PI et renvoie 
3.1415... Si l’on tape 10 P1 lors de l'entrée d’un 
programme, lors de l'édition on aura bien 10 D1sP Pi. 


Pour commencer, nous allons donc nous intéresser 
aux fonctions. En effet, celles ci sont beaucoup plus 
simples à écrire que les ordres car le HP-71 s'occupe 
de gérer la syntaxe ce qui n’est pas le cas avec les 
ordres. Nous verrons cela dans un prochain article. 


Comme un exemple vaut mieux qu’un long discours, 
je vous propose le Lex suivant tiré du manuel de la 
Rom Forth / Assembleur page 54. Ce Lex contient la 
fonction ONE qui ne prend pas de paramètre et renvoie 
la valeur 1. Je vous propose donc de rentrer ce fichier 
source dans votre machine puis de lire les explications 
qui suivent avant d’assembler. 


LEX ILEX1' 

ID #50 

MSG 0 

POLL 0 
FNRTN1 EQU #0F216 

ENTRY FNCT 

CHAR  #F 

KEY ONE! 

TOKEN 1 

ENDTXT 

NIBHEX 00 
FNCT C=0 W 

P= 14 

LCHEX 1 


GOVLNG FNRTN1 


END 


Le source est déjà commenté dans le manuel mais 
nous allons pousser plus loin les explications. 


La directive LEX 'LEX1',en début de fichier source, 
indique à l’assembleur de créer un fichier de type Lex 
ayant pour nom LEXI1. 


POLL O et MsG O0 indiquent l'absence de routine 
d’interception de poll et de table de messages dans ce 
Lex. 





La ligne FNRIN1 EQU #0F216 indique, comme nous 
l'avons vu dans un article passé, d’affecter la valeur 
hexadécimale O0F216 à l’identificateur FNRTNI. 
FNRTNI est l’adresse dans la Rom système d’une 
routine. On dit que FNRIN1 est un point d’entrée. Cette 
routine « FoNction ReTurN » se charge de l'affichage 
du nombre contenu dans l’accumulateur C et du 
retour de notre fonction. 


La directive ENTRY indique le point d’entrée de notre 
fonction ONE. 


cHAR #F donne la valeur F au CHARacterization nibble. 
Ce qui indique le statut de notre point d’entrée à 
savoir que notre instruction est une fonction. 


KEY indique que la nouvelle fonction s’appelle ONE. 


TOKEN 1 indique que le numéro de token de notre 
instruction est 1. 


Enfin ENDTXT indique la fin de la partie de description. 
Entrons maintenant dans notre fonction. 


La directive NIBHEX 00 indique à l’assembleur de 
générer deux quartets de valeur O qui seront placés 
juste avant le point d’entrée de notre fonction. Ce 
sont les fameux quartets d’information destinés au 
système d’exploitation. Dans le cas d’une fonction, le 
premier de ces deux quartets indique au HP-71 le 
nombre de paramètres minimum qu’accepte notre 
fonction et le deuxième le nombre maximum. Si ces 
deux quartets sont différents, c’est parce que la 
fonction accepte un ou plusieurs paramètres 
facultatifs. On s’aperçoit ainsi qu’une fonction peut en 
avoir au maximum 15 (c’est le nombre le plus grand 
que l’on peut faire tenir dans un quartet) ce qui suffit 
bien dans la plupart des cas ! Ici notre fonction ne 
prend donc aucun paramètre. 


A chaque fois que l’on appelle la fonction ONE, que ce 
soit à partir du clavier ou dans un programme, le 
HP-71 vérifie que le nombre de paramètres que l’on 
donne correspond bien à ce qui est autorisé en 
regardant ces deux quartets. C’est ainsi que le HP-71 
gère automatiquement le contrôle de syntaxe. S’il n’y 
a pas correspondance, le système renvoie le message 
Invalid Expr. 


Notre fonction commence donc au label FNCT (pour 
FoNCTion). On commence d’abord par mettre à zéro 
le registre C en entier (W désigne le registre en 
entier). Deuxième instruction : on charge la valeur 14 
dans le registre pointeur de 4 bits P. Troisième 
instruction : LCHEX 1 (Load C HEXa) charge la valeur 
1 dans C dans le quartet pointé par P. Le registre C 
contient alors : C = 0100000000000000. Je rappelle 
que la structure de C est la suivante : 





.XS.<-B-> 
<<... A ----> 
<Sreréesmseemsesseess M cosesocccee >. X -> 


On a donc S=0 c’est à dire signe positif, M=1 et 
X=0. Le nombre contenu dans C est donc 1x10° soit 
1. Il reste alors à envoyer cette valeur 1 à la routine 
FNRTN1 (qui se charge de Faffichage) par 
l'instruction GovLNG (pour Go Very LoNG). 


Nous pouvons donc maintenant assembler cette 
fonction en passant sous Forth et en appelant le 
programme d’assemblage par " SOURCE" ASSEMBLE (en 
supposant que vous ayez appelé votre fichier source 
SOURCE1). Une fois l’assemblage terminé sans 
erreur, il faut se rappeler que notre Lex tout neuf n’a 
pas été encore configuré et que dans ces conditions, si 
l’on essaye d’exécuter la fonction ONE, on n’obtiendra 
en échange qu’un message Excess Char. Pour 
remédier à cela, il suffit d’éteindre sa machine et de la 
rallumer pour que notre Lex soit pris en compte par 
le système et configuré dans le bLEX. A partir de 
maintenant, on dispose d’une nouvelle fonction ONE 
qui renvoie 1. Génial, non ? 


Les conditions lors de l’entrée dans un Lex 


Une fois que le système d’exploitation a vérifié la 
syntaxe de la fonction, il passe la main à notre 
programme. Pour que tout fonctionne correctement, 
il faut cependant se plier à certaines règles. En 
particulier, au retour de notre programme, le HP-71 
s'attend à retrouver dans certains registres des valeurs 
importantes. C’est notamment le cas pour DO et D1 
(les deux registres d’index) dont nous verrons l’usage 
dans un autre article. Par contre les registres À, B, C, 
D, RO.R3 sont disponibles pour faire ce que vous 
voudrez. 


On se retrouve également avec P=0, mode 
hexadécimal et dans le cas d’une fonction, la partie 
signe du registre C (que l’on note C{S]) contient le 
nombre de paramètres que l'utilisateur a donné lors 
de l'appel. 


LEX à deux fonctions 


Nous allons continuer notre initiation avec l'écriture 
d'un deuxième Lex qui apportera deux nouvelles 
fonctions : TWO et THREE (deux et trois en anglais) pour 
continuer dans la suite logique de SOURCE. Voici 
donc le listing du fichier source que j'ai appelé 
SOURCE : 
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LEX "LEX2' 
ID #5C 
MSG 0 
POLL 0 
FNRTN1 EQU #0F216 
ENTRY TWOe 
CHAR #F 
ENTRY THREEe 
CHAR #F 
KEY ‘TWO! 
TOKEN 2 
KEY 'THREE! 
TOKEN 3 
ENDTXT 
NIBHEX 00 Pas de paramètre pour TWO 
TW0e  C=0 W 
p= 14 
LCHEX 2 
GOTO fin 
NIBHEX 00 Pas de paramètre pour THREE 
THREEe C=0 W 
P= 14 
LCHEX 3 


fin GOVLNG FNRTN1 


END 


Etudions maintenant ce Lex. Les deux fonctions qu'il 
apporte ressemblent à ONE comme deux gouttes d’eau. 
On trouve bien les inséparables ENTRY et CHAR deux fois 
ainsi que leurs collègues KEY et TOkEN. La fonction Two 
aura pour id 5C et pour TOKEN 2 et THREE aura le 
même id (forcément puisque que dans le même Lex) 
et 3 pour TOKEN. 


Comme pour ONE, ces fonctions ne prennent aucun 
paramètre en entrée. On place donc NIBHEX 00 devant 
chacune pour l'indiquer. 


Il reste alors à charger dans C[M] la bonne valeur 
avant de rendre la main à FNRTNI1. Comme on 
appelle cette routine au sortir des deux fonctions on 
peut remplacer un GOVLNG FNRTN1 par GOTO fin. Ceci 
permet de gagner 3 quartets car l'instruction GOT0 en 
prend 4 alors que GoviwG est plus gourmande avec 7 
quartets. Ceci s'explique par le fait que GoTo utilise 
une adresse relative (sur trois quartets) alors que 
GOVLNG utilise l'adresse absolue (donc sur 20 bits). 





Il ne vous reste plus qu’à assembler ce Lex et à 
l'essayer (n'oubliez pas d’éteindre puis de rallumer 
votre HP-71) en tapant par exemple ONE+TWO+THREE ce 
qui doit faire 6 si je ne m’abuse. Facile comme 1, 2, 3 
non ? 


Remarque : En ce qui concerne les Lex que vous 
inventerez (ce vous ne manquerez pas de faire, 
j'espère), je vous conseille d’utiliser le numéro d’id SE 
ce qui évitera les interférences avec les Lex que je 
proposerai (d’id SC) et ceux d'HP (id SD). 


Représentation interne des nombres 


Pour vous permettre de faire d’autres Lex, je vais 
parler maintenant plus en détail de la représentation 
interne des nombres dans un registre de 64 bits. 


Les nombres (non complexes) peuvent s’écrire 
comme chacun le sait sous la forme nxZ0P où n est la 
mantisse et p la puissance de 10. Le nombre peut être, 
bien entendu, précédé d’un signe négatif. C’est sous 
cette forme que sont stockés les nombres dans les 
registres du microprocesseur du 71. 


En fait, il existe deux représentations suivant que l’on 
veut avoir une mantisse de 12 digits de précision ou 
de 15. Cette dernière représentation nécessite alors 
deux registres pour contenir un nombre. Aujourd’hui, 
nous allons voir la première représentation. La 
structure est alors la suivante : 


15 0 
Hegessssssssssssssss ss +------ + 
[S| Mantisse (Exp. | 
deb +------ + 
1 12 3 = 16 


Le signe est donc sur un quartet, la mantisse sur 12 et 
l’exposant sur 3 ce qui donne : 


15 0 
Het +... + 
SPAS L LS eme MO |E2..E0| 
hr ds... + 
1 12 3  =16 


La mantisse est un nombre non signé précédé d’un 
quartet de signe, S, valant 0 pour un signe positif et 9 
pour un nombre négatif. L’exposant quant à lui est 
représenté sous la forme d’un nombre en complément 
à 10. C’est à dire que pour représenter -5 par 
exemple, on aura E2..E0 = 1000 +(-5) soit 995. Il est 
donc assez facile de coder n'importe quel nombre 


dans un registre tel que C. 





Pour finir... 


Pour finir l’article de ce mois-ci, je vous propose deux 
autres petits Lex qui vous permettront de mieux 
comprendre la représentation des nombres. 


Le premier contient une fonction Pi (Half-PI) qui 
renvoie 1/2, le programme est simple. On utilise LCHEX 
pour charger dans C[M] la valeur désirée. Il ne faut 
pas oublier de mettre P à 4 avant de charger les 11 
digits de facon à avoir le 1 de tête dans C[14] (c’est à 
dire M11). Je rappelle que LCHEX charge le nombre en 
commençant par les poids faibles dans le quartet de C 
pointé par P puis incrémente P et ainsi de suite. On 
aura donc bien C[M] = 15707963268. 


Préalablement on a effacé C[W] ce qui met le signe à 
0 (donc positif) ainsi que l’exposant. Voic donc le 
listing du fichier source HPILEXS (le S est pour 
indiquer que c’est un fichier source) : 


LEX "HPILEX! 
1D #5c 
MSG 0 
POLL 0 

FNRTN1 EQU #0F216 
ENTRY HPle 
CHAR #F 
KEY "HPI! 
TOKEN 4 
ENDTXT 
NIBHEX 00 

HPle Cc=0 W 
p= 4 
LCHEX 15707963268 


GOVLNG FNRTN1 
END 


Après avoir assemblé vous pouvez essayer la nouvelle 
- fonction HP1 en vérifiant que, par exemple, P1/2 = HP 
donne bien 1. La précision peut poser ici des 
problèmes : en effet si P1/2 égale HP1, il n’en est pas 
de même pour P1 et 2*HP1. 


Le deuxième Lex, dont le fichier source PPCLEXS et 
imprimé ci-dessous, apporte une fonction MYPPC qui 
renvoie un nombre qui sera votre numéro de PPC. Ce 
Lex est donc à compléter par vous en fonction de 
votre numéro de membre. Pour l’exemple j'ai pris le 
mien, soit 192. On l'écrit sous la forme 1.92E2 et l’on 
doit se débrouiller pour avoir : 

C[W1=0192000000000002 

Pour faire cela, on dispose de plusieurs solutions : 








On peut faire par exemple : 

LCHEX 0192000000000002 

ou bien, comme beaucoup de chiffres sont à zéro, 
effacer d’abord C[W] puis mettre C[14..12] = 192 et 
CIO] = 2. C'est ce que j'ai choisi de faire car on 
économisera 3 quartets par rapport à la solution 
précédente. On profite donc de P=0 pour charger en 
premier l’exposant. Il reste à pointer C[12] avec P et à 
charger 192 avant d'appeler FNRTNI et le tour est 
joué. Je vous laisse donc adapter le fichier source 
suivant en fonction de votre numéro. 


LEX "PPCLEX' 


1D #5C 

MSG 0 

POLL OO 
FNRTN1 EQU #0F216 


ENTRY MYPPCe 
CHAR _#F 
KEY "MYPPC! 
TOKEN 5 


ENDTXT 


NIBHEX 00 
MYPPCe C=0 W 


LCHEX 2 L'exposant est 2 
P= 12 
LCHEX 192 Chargement de La mantisse 


GOVLNG FNRTN1 
END 


Il restera à compiler ce Lex et à l'essayer. Je vous 
donne rendez-vous au mois prochain pour un article 
avec lequel nous continuerons à étudier les fonctions, 
mais nous verrons comment leur passer des 
paramètres et faire des opérations dessus. A bientôt 
donc. 


A partir de maintenant j'indiquerai en fin d’article où 
trouver, pour ceux que ça intéresse et qui ont les 
I.D.S., des informations complémentaires sur le sujet 
de mon article. Je vous propose donc de consulter : 


- Le paragraphe 6-1 page 6-1 sur la structure des 
fichiers Lex dans le volume I. 

- Les conditions d’entrée de FNRTN]1 dans le volume 
IT page 8-3 ou volume III page 5 du module Execution 
controller (adresse #0F216). 

- La structure du bLEX chapitre 12.9 volume I. 
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- Le format des nombres dans les registres 
paragraphe 13.2.1 du volume I. 

- Dans les IDS III (module Functions) : Les points 
d'entrée de Eps (adresse #O0B7A1), PI (adresse 
#0C000), 1NF (adresse #0B7AA) et MAXREAL (adresse 
#OB76E)). 

- Toujours dans les IDS III (module Flags, Traps and 
Modes) : les routines des fonctions INX, UNF, OVF, DVZ et 
IVL à partir de l’adresse #13883. 

- Dans le numéro 39 de JPC (novembre 1986), 
l’article « Les débuts » de Pierre David et le chapitre 
Représentation interne des données de l’article de 
Jean-Jacques Dhénin, page 23. 


Jacques Baudier (192) 


NDLR : N'hésitez pas à encourager Jacques ; vous pouvez le 
contacter à l'adresse suivante : 

4 impasse Daniel René 

78800 Houilles 


DEUX FONCTIONS 
POUR COMPARER 


Le petit Lex que je vous propose fournit deux 
fonctions pour comparer des nombres. La différence 
avec les opérateurs de comparaison est que, ici, le test 
est fonction d’un nombre entier : 


« 


Q Un BR À © + 
VOA v M 


Supposons, par exemple, que vous vouliez faire un 
programme de tri banalisé, qui sache trier en ordre 
ascendant ou descendant. Il suffit d’utiliser une de ces 
deux fonctions. Le tri pourra se faire simplement en 
demandant un nombre entre 1 et 6. 


Fonction STEP 


Syntaxe : STEP (X, C,n) 

Renvoie x si le test est vrai, 0 sinon. 

Par exemple, si on veut tester x<c, on fera 
TEST(x,c,1). 





Fonction TEST 


Syntaxe : TEST (x, C,n) 

Renvoie 1 si le test est vrai, 0 sinon. 

Par exemple, si on veut tester x<>c, on fera 
TEST(x,c,5). 


Bonnes comparaisons... 


Jack Elhay 
LEX "TESTLEX' 
* Fonctions de comparaisons numériques banalisées 
* codage : 
* dise 
* 3: <= 
* 4: 
* S:<> 
#L «6 3 = 
ID #5C 
MSG 0 
POLL O0 
ENTRY Step 
CHAR #F 
ENTRY Test 
CHAR  #F 
KEY ISTEP! STEP (X, C,n) 
TOKEN 20 Renvoie X si vrai, 0 sinon 
KEY TEST! TEST (OX, C,n) 
TOKEN 21 Renvoie 1 si vrai, 0 sinon 
ENDTXT 
ARGERR EQU #0BF19 Invalid Arg 
RNDAHX EQU #136CB  dépile un réel en hexa A(A) 
POPIR EQU #OE8FD  dépile réel, pas complexe 
TST12A EQU #0D476 compare 2 réels A(W) et C(W) 
FNRTN& EQU #0F238 sortie de La fonction 


Argerr GOVLNG ARGERR 


* 3 paramètres numériques obligatoires pour STEP 


NIBHEX 88833 
Step ST=0 O0 Flag O0 := O0 pour STEP 
GOTO start Saute dans Le code commun 


* TEST a aussi 3 paramètres numériques obligatoires 
NIBHEX 88833 

Test ST=1 0 

start GOSBVL RNDAHX 
GONC  Argerr 


Flag 0 := 1 pour TEST 
ACA) := n dépilé en hexa 
mais n ne doit pas être <0 


LCHEX #06 C(B) := 6 (limite sup.) 
?2A>C B n>67? 

GOYES Argerr oui : erreur 

RO=A non : ok, Le sauver en RO 





D1=D1+ 16 D1 pointe sur C 
GOSBVL POPIR récupère C 


R1=A sauver C en R1 

D1=D1+ 16 D1 pointe sur X 

GOSBVL POPIR récupère X 

R2=A Sauve X en R2 

C=RO récupère n dans C(B) 

P=C 0 Pointeur P vaut n 

C=R1 registre C := paramètre C 

CD1EX D1 est bien positionné 

R3=C aussi il faut Le sauver 

CD1EX et restaurer C pour le test 

GOSBVL TSTI2A teste ! P = Le test à faire 

c=0 W efface C(W) pour La sortie 

GONC OUT Si Cy = 0, test échoué, 0 

?ST=0 O0 STEP 

GOYES stpout Oui : résultat = X 

P= 14 P est mis pour placer 1 

LC(1) 1 charge le 1 

P= 0 restaure Le pointeur P 

GOTO OUT Saute La prochaine ligne 
stpout C=R2 Place X (Le résultat) en C(W) 
OUT A=R3 restaure D1 depuis R3 

D1=A restaure Di 

GOSBVL FNRTN4 renvoie Le résultat 

END 


CHOC EN RETOUR 


La dernière version de DIVILEX est parue dans JPC 
38 (octobre 1986). Toutefois, des modifications sont 
intervenues depuis. 


Les fonctions FPRM et NPRM ont été renommées en FPRIM 
et NPRIM respectivement. 


La procédure d'interruption de la fonction PRIM 
(DIVILEX) pouvait poser des problèmes, aussi 
l'interruption des fonctions PRIM, FPRIM, NPRIM et PHI se 
fait maintenant par deux pressions sur [ATTN) comme 
cela m’a été demandé par Janick Taïillandier. 


La limite inférieure des paramètres pour FPRIM et 
NPRIM est maintenant zéro. 


Une securité est ajoutée : toutes les fonctions de 
DIVILEX refusent les paramètres non entiers. 


Guy Toublanc (276) 


t 
ARGERR 
ATNFLG 
BSERR 
CLRFRC 
DCHXW 
= 
FLOAT 
FNRTN1 
IDIV 
MPY 
POPIR 
RJUST 
SPLITA 


msg 


elnter 


endmsg 


PH 


LEX 
1D 
MSG 
POLL 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
ENDTXT 


CON(2) 
CON(2) 
CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
NIBASC 
CON(1) 
NIBASC 
CON(1) 
NIBHEX 


NIBHEX 
GOSUB 


"DIVILEX! 

#E1 

msg 

0 

82 
#0BF19 

#2F442 

#0939A 

#OCéF4 

#OECDC 

#1B322 

#0F216 

#0EC7B 

#O0ECBB 

#0E8FD 

#12AE2 

#0C6BF 
FPR 

#F 

NPR 

#F 

PGD 

#F 

PH 

#F 

PPM 

#F 

PRM 

#F 
"FPRIM' 
t 
FNPRIM! 
1+t 
‘PGCD' 
2+t 
‘PHI! 
3+t 
"PPCM' 
d+t 
"PRIM! 
S+t 


15 
15 





(endmsg)-(elnter) 


07 

€ 
‘Function! 
f: 

" Interru! 
3 

‘pted' 

12 

FF 


811 
popin 
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H10 
ROA 


LOO 


PHI 


R2A 
dh 


RESC 
RESA 


OUT 


PPM 


PGD 
pad 


LOOPG 


PGC 


RO=A 

R2=A 

c=0 W 
C+P+1 

?7A=C NW 
GOYES RESA 
GOSUB GTES 
RO=A 

2A#C W 
GOYES LOO 
R1=C 

GOSUB PHI 
GONC RESA 
GOSUB div 
C=R1 

2B=0 W 
GOYES ROA 
GOSUB PHI 
GONC H10 
A=R2 

C=R1 

GOSUB div 
C=R1 

C=C-1 W 
R2=A 

GOSBVL DCHXW 
SETDEC 

A=R2 

GOSBVL MPY 
R2=A 

RTN 

A=C W 
GOSBVL FLOAT 
C=A W 
ADOEX 
D0=(5) ATNFLG 
DATO=A S 
DO=A 


GOVLNG FNRTN1 


NIBHEX 88888888882A 


ST=1 2 
GONC pgd 


NIBHEX 88888888882A 


ST=0 2 
GOSUB DCS 
R1=A 

GOSUB popin 
GONC  pgc 
R3=C 

GOSUB popin 
GOSUB PGC 
2D#0 S 
GOYES LOOPG 
GONC RESC 
C=R1 


il 
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2C#0 

GOYES 

ACEX 

DIFO R3=A 
R2=C 
EUCL  GOSUB 
?8=0 
GOYES 
__AER1 
GONC 


PGCD C=R1 
?2ST=0 
RTNYES 
A=R3 
GOSUB 
RO=A 
A=R2 
GOSUB 

___ACEX 
GOSUB 
C=RO 
7A<C 
GOYES 
GOSUB 
R1=A 
RTN 


pop C=RSTK 
ERR GOVLNG 


DCS D=C 


7 popin GOSBVL 


D1=D1+ 
?A=0 
GOYES 
ST=1 
c11 LCHEX 
7A>C 
GOYES 
GOSBVL 
GOSBVL 
GONC 
A=B 
D=D-1 
GOVLNG 


RTN 
CONST, c=0 
LCHEX 
D=C 
LCHEX 
Ré&=C 
RTN 


[66 





W 
DIFO 


R1C 


PGCD 


EUCL 


div 


E12 


div 


pop 
dh 


ARGERR 


s 
POPIR 
16 

s 

c11 

0 

o11 

x 

pop 
SPLITA 
CLRFRC 
pop 

M 

S 
RJUST 





FPR 


NPR 
prim 


LIM2 


LIMI 


N<n 


DESC 


ASC 


NIBHEX 
ST=1 
GONC 


NIBHEX 
__ST=0 
ST=0 
GOSUB 
C=0 
?ST=1 
GOYES 
GOSUB 
R2=C 
?D=0 
GOYES 
R2=A 
| ST=0 
GOSUB 
C=R2 
?A<=C 
GOYES 
ST=1 
c=0 
LCHEX 
2ST=1 
__GOYES 
?A>=C 
GOYES 
A=C 
RO=A 
A=R2 
?2ST=0 
GOYES 
?2A>=C 
GOYES 
._R2=C 
GOSUB 
A=0 
R3=A 
C=RO 


LOOPF  RO=C 


CRES 


CONT 


A=R2 
?ST=0 
GOYES 
ACEX 
?2C>A 
"GOYES 
GOSUB 
?A#C 
GOYES 
?ST=1 
GOYES 
C=R3 
c=c+1 
R3=C 
—{C=RO 
?ST=0 
GOYES 


NY 


8812 
1 
prim 


8822 


ASC 


ASC 


CONST 


CRES 


RESN 
NTES 


CONT 


RESU 


INCR 


INCR 


RESN 
RESU 


R1C 
div 


PRM 


TVAL 


err 
VAL 


resc 


GTES 
NTES 


C=c-1 
GONC 
C=C+1 
GONC 
A=R3 
GOTO 


R1=C 
GOSBVL 
7 RINCC 


NIBHEX 
GOSUB 
?D=0 
GOYES 
c=0 
LCHEX 
?A>C 
GOYES 
c=c+1 

TT RI=C 
RO=A 
GOSUB 
c=R1 
GOSUB 
A=RO 
A=A+C 
RO=A 
?A#0 

__GOYES 
GOTO 
GOSUB 
?2A#C 
GOYES 
c=0 
GOTO 


GOSUB 
c=D 
GOSUB 
C=C+1 

T7 GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 

7 GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


11 7 
EI 





M 
LOOPF 
W 
LOOPF 


RESA 


IDIV 


8812 
DCS 


TVAL 


999 


err 


popin 


R2A 


VAL 
ERR 
GTES 


resc 


RESC 


CONST 


TESO 


TESO 
TES2 
TES2 
TES& 
TES2 
TES4 
TES2 
TES4 
TESé 
TES2 
TESé 
TES4 
TES2 
TES4 
TESé 
TES6 
TES2 
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GOSUB 
GOSUB 
__GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
__ G0SUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUS 
__60SUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
_60SUB 
GOSUB 
?ST=0 
GOYES 
ADOEX 
D0=(5) 
A=DATO 
?A=0 
GOYES 
SETHEX 
__A=A+1 
GOC 
DATO=C 
DO=A 
P= 
LC(4) 
GOVLNG 


setdec SETDEC 


DOA 
PL10 


71 2 


LS 
J v 


TES6 
TES4 
TES2 
TESé 
TES4 
TESé 
TES8 
TES4 
TES2 
TES4 
TES2 
TES4 
TES8 
TES6é 
TES4 
TES6 
TES2 
TES4 
TES6 
TES2 
TES6 
TES6 
TES4 
TES2 
TES4 
TES6 
TES2 
TES6 
TES& 
TES2 
TES4 
TES2 
TES10 
TES2 
12 
PL10 


ATNFLG 
S 

S 

DOA 


5 
setdec 
S 


0 
#E107 
BSERR 
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RESP 
rnp 
TES10 
TES8 
TES6 
TES4 
TES2 
TESO 


HI 


LO 


LO1 


RNP 


GONC 
C=R1 
P= 
?A#0 
RTNYES 
C=RSTK 
C=R1 
A=RO 


RTN 
END 


LO 


LE 


LO 


Loi 


W 


LO 


7 
WP 





LA GUERRE DES NOYAUX 
(ACTE I) 


Deux programmes informatiques, dans leur habitat 
naturel que constitue la mémoire d’un HP-71, se 
livrent une lutte sans merci, adresse par adresse. 
Parfois, ils partent à la rencontre de l’adversaire ; 
parfois, ils construisent un barrage de bombes 
numériques ; parfois ils se retranchent eux-mêmes 
dans une zone moins dangereuse où s’arrêtent un 
moment pour panser leurs blessures. Tel est le jeu 
appelé Core War. 


Bien sûr, personne ne joue ! Une fois écrits par leurs 
auteurs, puis entrés en mémoire, les créateurs des 
programmes en lutte ne peuvent qu’observer leur 
machine et attendre passivement la mort ou la survie 
du produit qu’ils ont mis des heures à concevoir et à 
mettre au point. L’issue finale dépend uniquement de 
celui des deux programmes qui sera le premier touché 
dans une zone vulnérable. 


Les programmes rivaux de Core War sont écrits dans 
un langage spécial, appelé Redcode par son auteur (A. 
K. Dewdney, publié dans la revue Pour la science), et 
qui fait partie des langages d'assemblage. L'ensemble 
Core War se compose donc de quatre éléments : une 
mémoire de 8000 mots, le langage d’assemblage 
Redcode, un programme superviseur appelé MARS, 
pour Memory Array Redcode Simulator, et l’ensemble 
des programmes combattants. 


A l’origine, deux de ces programmes combattants sont 
introduits en mémoire à des emplacements choisis au 
hasard ; aucun d’eux ne sait où se trouve l’autre. 
Cependant, pour ce premier aperçu, le programme 
fourni pour HP-71 vous permettra de choisir 
vous-même les adresses de départ, afin de mieux 
contrôler vos premières expériences ; par la suite, une 
modification minime rétablira la règle originale 
prévue pour un véritable affrontement, en rétablissant 
un générateur aléatoire d'adresses. 


Le superviseur MARS pilote le déroulement des 
programmes en temps partagé. Les deux programmes 
tournent chacun à leur tour : on exécute une 
instruction du premier, puis une instruction du second 
et ainsi de suite. 


Le but est évidemment d’écrire un programme afin de 
détruire le programme adverse en démolissant ses 
instructions. Le combat prend fin lorsque le 
superviseur MARS trouve dans un programme une 
instruction qui n’est plus exécutable, ce qui est 
considéré être une conséquence de la guerre ; le 
programme inexécutable est déclaré vaincu. 





Redcode comprend 9 instructions : 


MOV A B 
L’instruction transfère le contenu de l'adresse À à 
l'adresse B. 


ADD À B 
L’instruction ajoute le contenu de l'adresse 4 au 
contenu de l’adresse B. 


SUB À B 
L’instruction soustrait le contenu de l’adresse À du 
contenu de l’adresse B. 


JMP A 
L’instruction transfère l’exécution à l’adresse A. 


JMZ AB 
L’instruction transfère l'exécution à l'adresse A 
seulement si le contenu de l’adresse B est nul. 


JG À B 
L'instruction transfère l'exécution à l'adresse À 
seulement si le contenu de l’adresse B est > 0. 


DJZ AB 
L’instruction retranche 1 du contenu de l’adresse B et 
saute à l'adresse À seulement si le résultat est nul. 


CMP A B 
L’instruction compare le contenu des adresses 4 et B 
et saute l'instruction suivante s’ils sont différents. 


DAT B 
Déclaration de donnée, B est la valeur de la donnée. 


Cette dernière instruction est particulière car non 
exécutable par MARS : celui-ci déclare perdant le 
programme correspondant quand on lui demande de 
traiter une telle instruction. Elle peut servir de 
mémoire de travail pour conserver une donnée dont 
le programme aura besoin. 


La mémoire a une structure circulaire : l’adresse 7999 
(dans le cas d’une mémoire de 8000 mots) est suivie 
de l'adresse 0 : le superviseur MARS interprète toute 
adresse supérieure à 7999 en ne conservant que le 
reste de la division par 8000. 


Précisons maintenant les particularités de l’adressage 
en Redcode. La méthode utilisée est celle de 
l’adressage relatif ; elle est employée pour qu’un 
programme de combat n'ait aucun moyen de 
connaître sa position absolue dans la mémoire. 


Trois modes d’adressages sont possibles : 
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- direct (pas de préfixe) : 

L’argument représente directement l’adresse relative. 
Exemple : l'instruction JMP -7 demande à MARS 
d’aller chercher la prochaine instruction à exécuter 
sept positions mémoire avant celle de l'instruction 
JMP -7. 

De même, l'instruction MOV 3 100 commande au 
superviseur MARS de progresser de trois positions 
mémoire, de lire le contenu de la case et de le 
recopier 100 positions au-delà de l'instruction Mov 
elle-même. 


- indirect (préfixe @) : 

L'argument représente une adresse qui elle contient 
l'adresse relative. 

Exemple : l’instruction MOV a3 100 qui recopie à 
l'adresse relative 100 (soit 515 dans cet exemple 
chiffré) le contenu de l'adresse relative (ici 413) 
obtenue à partir de l’adresse relative 3 (soit 418 - 5) : 


412 

413 DAT 22 
414 

415 MOV 93 100 
416 

417 

418 DAT -5 
419 

514 

515 DAT 
516 


22 <- résultat 


- immédiat (préfixe #) : 

L’argument n’est pas une adresse mais une quantité 
entière (donnée). 

Exemple : MOV #5 -1 recopie 5 à la position mémoire 
précédant l'instruction. 


Voyons maintenant comment utiliser le programme 
MARS71. 


Après un [RUN], entrez la taille que vous désirez 
donner à la mémoire circulaire ; celle-ci sera 
comparée à celle disponible sur votre engin. 


Entrez ensuite le nombre de programmes que vous 
désirez exécuter. Il est possible que vous ne vouliez 
suivre qu’un seul programme pour commencer : taper 
1, sinon 2 pour mettre en scène un duel... 


Vous devez ensuite entrer l’adresse de la première 
instruction de votre programme. Puis, c’est l'accès au 
compilateur qui vous permet d'entrer votre 
programme, ligne par ligne. Une ligne commence par 
la mnémonique et est suivie du ou des deux 
arguments, chaque zone étant séparée par au moins 
un espace. 


Une fois le programme entièrement entré, tapez 
simplement LENDLINE] pour revenir, soit à l'entrée du 
second programme, soit pour voir démarrer 
l'exécution du premier. Dans chaque cas, vous pouvez 
suivre le combat à l'affichage en lisant le numéro de 
la case mémoire en cours d'exécution, les drapeaux 1 
et 2 vous identifiant à quel programme appartient 
l'instruction en cours. 


Un utilitaire recherchera automatiquement Ja 
première instruction exécutable si votre programme 
débute par des instructions de réservation DAT. 
Attention, les champs adresse sont limités de -999 à 


Voici deux exemples de programmes de combat dont 
l'étude vous permettra de saisir la philosophie de ce 
type de combat : 


Le plus court : Imp 
MOV 0 1 


Ce programme n’a d'autre finalité que de se 
reproduire et d’envahir ainsi toute la mémoire dans le 
but d’écraser son adversaire. 


Le bombardier : Dwarf 


DAT A ; pointeur 

ADD #5 -1  ; progression du pointeur 
MOV #0 @-2 ; lâcher de La bombe 

JMP -2 : retour à l'additionneur 


Ce programme, lui, bombarde une case mémoire sur 
cinq avec des zéros : il faut savoir que zéro est le 
code-machine de l'instruction non exécutable DAT. Un 
programme qui tombe sur un zéro est donc contraint 
à l'arrêt. 


Le mois prochain, nous étudierons plus en détail le 
programme MARS71 et nous vous proposerons des 
combats un peu plus actifs. N'hésitez pas à nous faire 
part de toutes vos idées sur la question, et de vos avis 
sur un éventuel tournoi dans un cadre à préciser. 


Bonne recherche et programmation, 


Olivier Arbey (118) 








Programme "MARS!" (simulateur de Redcode) 


- MARS71 
20 DESTROY ALL @ OPTION BASE O0 @ CFLAG 1 @ CFLAG 2 @ CFLAG 7 
- Contrôle taille mémoire en fonction de La place disponible 
40 INPUT ‘Taille mémoire ? !;M à IF M*10>MEM*1.1 THEN 40 
50 DIM T(M) 
60 INPUT ‘Nombre de prgms ? ';N7 @ IF N7=1 THEN SFLAG 6 ELSE CFLAG 6 
- Choix de l'adresse de La 1ère instruction du prgm 1 
80 INPUT "Adresse prgm 1 ? ";] à I=MOD(I,M) 
- Saisie du programme 1 
100 CALL COMPIL(T(),(1),M) 
- Recherche de La 1ère instruction exécutable, dans Le cas où Le prgm commence par des DAT 
120 CALL DATSEEK(T(),1,M) 
- Exécution du prgm 1 si un seul prgm a été demandé 
140 IF FLAG(é) THEN 220 
- Choix de l'adresse de La 1ère instruction du prgm 2 
160 INPUT “Adresse prgm 2 ? ";J à J=MOD(J,M) 
- Saisie du programme 2 
180 CALL COMPIL(T(),CJ),M) 
- Recherche de la 1ère instruction exécutable, dans Le cas où Le prgm commence par des DAT 
200 CALL DATSEEK(T(),J,M) 
- Exécute une instruction du prgm 1 
220 SFLAG 1 @ CFLAG 2 @ CALL EXEC(T(),1,M) @ 1F FLAG(7) THEN END 
- Boucle si prgm 1 seul 
240 IF FLAG(6) THEN 220 
- Exécute une instruction du prgm 2 
260 CFLAG 1 @ SFLAG 2 @ CALL EXEC(T(),J,M) @ 1F FLAG(7) THEN END 
270 GOTO 220 
- Exécute l'instruction de rang 1 


ÆZ=Z====Z=ZSSSSSSSISESSSESSSSSZSSSSS=SS=Z===Z=SZISESSSSESSSSSSSSSSSSSS= 


290 SUB EXEC(T(),1,M) 
300 DISP 1; à CFLAG 5 
310 N2=T(1)/100000000 à N3=INT(N2) 
320 1F N3=0 THEN 410 
330 N2=10*FP(N2) 
340 AO=INT(N2) @ N2=10*FP(N2) 
350 BO=INT(N2) @ N2=1000*FP(N2) 
360 A=INT(N2) à B=1000*FP(N2) 
370 ON N3 GOSUB 470,530,590,650,680,720,760,830 
380 IF FLAG(5)=0 THEN 1=1+1 
390 I=MOD(I,M) 
400 GOTO 870 
- Une instruction DAT 8 été rencontrée : FIN 
420 DISP ‘Fini pour !; 
430 IF FLAG(1) THEN DISP ‘11 ELSE DISP ‘2! 
440 SFLAG 7 à BEEP 
450 GOTO 870 
- MOV 
470 CALL DONNEECT(),A,A0,1,M) 
480 N3=MOD(I+B,M) 
490 IF BO=1 THEN T(N3)=A @ RETURN 
500 1F BO=2 THEN T(MOD(I+B+T(N3),M))=A 
510 RETURN 
- ADD 
530 CALL DONNEECT(),A,A0,1,M) 
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540 
550 
560 
570 


590 
600 
610 
620 
630 


650 
660 


N3=MOD(I+B,M) 

IF BO=1 THEN T(N3)=T(N3)+A @ RETURN 

IF BO=2 THEN Né=MOD(I+B+T(N3),M) à T(N4)=T(N4)+A 
RETURN 

SUB 

CALL DONNEE(T(),A,A0,1,M) 

N3=MOD(1+B,M) 

IF B0=1 THEN T(N3)=T(N3)-A @ RETURN 

IF B0O=2 THEN N4=MOD(:+B+T(N3),M) à T(N4)=T(N4)-A 
RETURN 

JMP 

CALL ADR(T(),A,A0,1,M) 

RETURN 


- JMZ 


680 
690 
700 


720 
730 
740 


760 
770 
780 
790 
800 
810 


830 
840 
850 


870 


CALL DONNEE(T(),B,80,1,M) 

IF B=0 THEN CALL ADR(T(),A,A0,1,M) 
RETURN 

JMG 

CALL DONNEE(T(),B,80,1,M) 

IF B>0 THEN CALL ADR(TC),A,A0,1,M) 
RETURN 

DJZ 

AÎ=A à A=1 

GOSUB 600 

A=AÎ 

CALL DONNEECT(),8,80,1,M) 

IF B=0 THEN CALL ADRÇ(T(),A,A0,1,M) 
RETURN 

CMP 

CALL DONNEECT(),A,AO,1,M) 

CALL DONNEECT(),8,80,1,M) 

IF A#B THEN 1=1+1 

RETURN 

END SUB 


SUB DONNEE(T(),A,A0,1,M) 

IF A0=1 THEN A=T(MOD(I+A,M)) à GOTO 920 

IF AO=2 THEN A=T(MOD(I+A+T(MOD(I+A,M)),M)) 
END SUB 


SUB ADRCT(),A,A0,1,M) 

SFLAG 5 

IF A0=1 THEN I=1+A à GOTO 980 

IF AO=2 THEN I=1+A+T(MOD(I+A,M)) 
END SUB 
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SUB DATSEEK(T(),1,M) 
IF T(MOD(1,M))<100000000 THEN 1=1+1 à GOTO 1010 
END SUB 


Compilateur de Redcode 


SUB COMPIL(T(),1,M) 

INPUT "Op ? ";N$ à NS=UPRCS(NS) 

IF N$='! THEN 1330 

NOS=NS [1,3] à NS=NS [5] 

IF NOS='MOV' THEN N1=1 

IF NOS='ADD' THEN N1=2 

IF NOS= SUB! THEN N1=3 

1F NOS='JMP' THEN N1=4 à NS=NS&' ! à SFLAG 5 ELSE CFLAG 5 
1F NOS='JMZ' THEN N1=5 

IF NO$="JMG' THEN N1=6 

IF NOS$='DJZ' THEN N1=7 

IF NO$='CMP' THEN N1=8 

IF NO$='DAT! THEN N1=MOD(VAL(NS),M) à GOTO 1310 
N1=N1*10 

IF POSC(NS,! ‘)=1 THEN NS=N$[2] à GOTO 1180 

1F N$[1,1)='@' THEN N1=N1+2 à N$=N$[2] à GOTO 1210 

IF N$[1,1)='#' THEN NS=NS$[2)] à GOTO 1210 ELSE N1=N1+1 
N1=N1*10000 

N3=POS(NS,! 1) 

N1=N1+MOD (VALCNS [1,N3)),M) 

IF FLAG(5) THEN N1=N1*1000 à GOTO 1310 

NS=NS [N3+1] 

IF POSCNS,' ')=1 THEN NS=N$[2] à GOTO 1260 

IF N$[1,1]='a@' THEN N1=N1+2000 à NS=N$[2] à GOTO 1290 
IF N$[1,1)='#! THEN NS=NS[2] à GOTO 1290 ELSE N1=N1+1000 
N1=N1*1000 

N1=N1+MOD (VALCNS),M) 

TCIDEN1 @ 1=1+1 à I=MOD(1,M) 

GOTO 1050 

END SUB 


RRRRR ROM dede ee ee De de Dee er er ee ee ee ee ee de ee ee ee eee ee ee ee ee ee ee fe of eo eee oo ee fee eo oh ee oh ee A 


Programme "BOOT" (partie Basic du programme de X. Bille paru dans JPC 47) 


partie BASIC du programme de tracé de courbes 
auteur : Xavier Bille 

variables : 

c$ menu, c commande reconnue dans c$ 

o$ choix utilisateur 

f5,x$,y$S expressions littérales de fonctions 
x,y abscisse et ordonnée 

a,b valeur d'un pixel (abscisse, ordonnée) 
1/a,1/b pas de calcul 

Ss paramètre de calcul 

x1,x2, val. min., val. max. en abscisse 
y1,y2 idem en ordonnée 
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t1,t2 idem cas de courbes paramétriques 
d pas de calcul du paramètre 
k paramètre indiquant Le numéro de fenêtre à afficher 
k$ touche, h$ choix de La courbe 
30 DEFAULT OFF @ SFLAG -1 Q OPTION ROUND NEAR @ CFLAG MATH 
40 DISP "Graphic Function" à C$="cl,gr,rn,sh,ot" 
50 DISP C$; à INPUT " :,0$;:0$ à C=(POS(UPRC$(C$),0$11,21)-1)/3 
60 1F C>=0 AND LEN(O$)=2 THEN O$ ELSE DISP "Command not found'! 
70 GOTO 50 
- permet de sortir du programme. 


80 'OT': DEFAULT EXTEND à CFLAG MATH à END 
- saisie de(s) La(les) fonction(s) 
tracé dans Le repère 


90 'GR': IF NOT FLAG(5) OR NOT (FLAG(1) OR FLAG(O)) THEN GOTO 'RN' 
100 INTEGER N @ IF FLAG(1) AND NOT FLAG(O) THEN 160 

110 LINPUT "F(x)=",F$;:FS$ 

120 DISP MY = f(X) Curve MECHRS(27)£'>'ECHRS(27)8'Q! 

130 ON ERROR GOSUB 'ERR' à S=1/A/(1+FLAG(4)) à FOR X=X1 TO X2 STEP S 
140 Y=VALCF$) à FORTHX "PLOT!" 

150 NEXT X @ GOTO 210 

160 LINPUT "XC(t)=",X$:X$ à LINPUT "Y(t)=",YS;:YS 

170 DISP "Parametric Curve"&CHR$(27)&'>'&CHRS(27)&'Q! 

180 ON ERROR GOSUB 'ERR' à S=D/(1+FLAG(4)) à FOR T=T1 TO T2 STEP S 
190 X=VAL(X$S) à Y=VAL(YS) à FORTHX '"'PLOT!! 
200 NEXT T 
210 OFF ERROR à BEEP 2000,.01 à DISP CHR$(27)&'<!,N;"t : Errors." 

- affichage de la fenètre 


220 ‘SH': INTEGER K @ DISP ‘Show! 
230 FORTHX "COMPOSE!",K à GDISP FORTHS 
240 IF NOT KEYDOWN THEN 240 
250 IF KEYDOWN('#50') THEN K=K-1 
260 IF K<O THEN DISP "Up." à K=0 
270 IF KEYDOWN('#51') THEN K=K+1 
280 1F K>30 THEN DISP "Down." à K=30 
290 KS=KEYS$S à IF K$='#162! THEN K=0 ELSE IF K$='#163' THEN K=30 
300 IF K$#' ! THEN 230 
310 DISP “Ok." à GOTO 50 
- saisie des paramètres du repère 


320 'RN': DISP "Range" à CFLAG 5,0,1 à ON ERROR GOSUB 'ERR' 
330 INPUT “Parm(P), Funct(F) ",H$;:H$ à H$=UPRCS(H$) 
340 IF H$='F' THEN SFLAG O Q GOTO 360 ELSE IF H$#'P' THEN 330 
350 SFLAG 1 à INPUT "Tmin,Tmax,T : ",STRS(TI)&', 'ESTRS(T2)R!, 'RSTRS(D);T1,T2,D 
360 INPUT "'Xmin,Xmax : “,STR$(X1)&','&STRS(X2);X1,X2 @ IF X1>=X2 THEN 360 
370 A=131/(X2-X1) @ IF A=0 OR ABS(A)=INF THEN 360 
380 INPUT "Ymin,Ymax : ",STRS(Y1)&', '&STRS(Y2);Y1,Y2 à IF Y1>=Y2 THEN 380 
390 B=127/(Y2-Y1) à IF B=0 OR ABS(B)=INF THEN 380 
400 FORTHX 'RANGE" à SFLAG 5 à OFF ERROR à GOTO 420 

- néttoyage de la matrice-écran 

tracé des axes 
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SESSSSSESSSESSSSESSSSSSSSESSSSESSSSSESSSEESESSESEEESESEEE 


ICL': DISP "Clear" 
FORTHX # CLEAR AXIS" à GOTO 50 
traitement des érreurs numériques 


1ERR': 1F ERRN=20 OR ERRN=31 OR ERRN=11 THEN DISP “Abort:":ERRM$S à GOTO ‘OT! 
1F FLAG(OVF) OR FLAG(UNF) OR FLAG(DVZ) THEN DISP "wrn:"&ERRMS; 

1F FLAG(IVL) THEN DISP “Cannot evalue "; 

N=N+1 à Y=0 à 1F FLAG(1) THEN X=0 

1F N>15 THEN DISP “Too many errors, abort" à GOTO ‘OT! 

DISP CHR$(27)&'>'&CHR$S(27)8&'R' à CFLAG MATH Q RETURN 

initialiser Les variables 


*BOOT': CFLAG ALL @ DESTROY ALL @ RUN 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce qu’est un fichier Lex : c’est un programme pour le HP-71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des programmes 
Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer et de recopier 
les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont accessibles, 
après avoir éteint et rallumé votre HP-71. 


Si l'erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 
Vous trouverz donc le Lex CHARIEX nécessaire à la rédaction de votre article (voir "Ah ! Vous 


écrivez !"), la nouvelle version de DIVILEX de Guy Toublanc, ainsi que Lex TESTLEX contenant 
les deux fonctions de comparaison de Jack Elhay. 


CHARLEX 

DIVILEX  FPRIM XFN 225082 NPRIM XFN 225083 
PGCD XFN 225084 PHI XFN 225085 
PPCM XFN 225086 PRIM XFN 225087 

TESTLEX STEP XFN 92020 TEST XFN 92021 


10 CALL MLEX à SUB MLEX à SFLAG -1 à PURGE AH à INPUT "Nb. d'octets: “;N à LC OFF 
20 CREATE DATA AH,1,N-4 à A=HTD(ADDRS("AH")) à B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",P$;A$ à C$=A$ à S=0 à GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à AS=ASRCS à A=A+37 à N=N*2+37 à Q=3 à SFLAG 5 à FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=C$(5*FLAG(5)+1] à POKE DTHSCA),C$ à A=A+16-5*FLAG(5,0) à NEXT X à Q=4 

60 DISP DTHS(X)[3): à INPUT ": ",P$[1,MOD(N,16)]1:C$ à GOSUB 90 

70 POKE DTHS(A),CS @ POKE DTHS(B),AS à CFLAG -1 à END 

80 DISP DTHS(X)[3]; à INPUT M: ",PS;C$ 

90 DISP DTHS(X)[3]; à INPUT " sm ","---n:D$ 

100 M=S à FOR Z=1 TO LEN(CS) à M=NUM(CS(Z])+M+1 à NEXT Z 

110 IF D$=DTHS(MOD(M,4096))13] THEN GOSUB 130 à S=M à RETURN 

120 DISP "Erreur de somme à BEEP à P$=C$ à POP à ON Q GOTO 30,40,50,60 

130 PS=n---..-.......... “à RETURN 
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CHARLEX ID#E1 624 octets 


0123456789ABCDEF sm 


: 34841425C4548502 35E 


802E008341029078 687 
5E4001E000000000 9FB 
FE0000000800001F D55 
F31BF961400032BF 0E8 
38F14A11DB10AD23 482 
07D532BFB8FD7911 835 
11AD754D7A101743 BBB 
11014D1CB15D0000 F23 
71450375FF864834 2A0 
5655581008355654 5F7 
5810002455565870 944 
0026555658700836 C96 
5556581008364545 FEC 
4A30000449724000 33F 
0808094A2C180814 6AB 
A464242008355455 A02 
581000054C714000 D48 
0c3142404C700832 OA& 
41414A70002078A0 3FC 
2F30000000000000 727 
0000000000000000 A37 
0000000000000000 D47 
0000000000000000 057 
0000000000000000 367 
0000000000000000 677 
0000000000000000 987 
0000000000000000 c97 
0000000000000000 FA7 
0000000000000000 287 
0000000000000000 5c7 
0000000000000000 807 


Ê 


039: 
034: 
038: 
03C: 
030: 
03E: 
03F: 
040: 
041: 
042: 
043 


0000000000000000 BE7 
000000000000080€ F12 
1A280B0008080A2C 27C 
180008040E340800 5C5 
08001E3018000000 8FF 
0000000000000000 COF 
0000000000000000 F1F 
0000000000000000 22F 
0201000000010200 545 
0000000201020000 85A 
0001000100000002 B6E 
0102010000000000 E82 
0000000000000000 192 
045E755142400101 4DE 
0101010000000000 7F1 
0000000000000000 801 
0000070507000000 E24 
D0000000083444C4 162 
4440007901112D70 4C2 
050D750509700000 80C 
0070000000384540 B4F 
4020014E322E3140 EA3 


: 084E794142400000 1F3 


00000000002E4559 531 


: 3200000000000000 846 


0000000000000026 B5E 
5556587008365556 EBD 
5810083645464830 20E 
0832414248700024 54F 
5655587008345655 BAC 
5810083446454830 BFB 
0C3042414C700024 F50 
5556587008355654 2AD 
5810083546444830 SFC 
0C3142404C700025 952 
5455587008355455 CAC 


00 


SESÉRE 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 


00A 
008: 
D0C: 
002: 
O0E : 
O0F: 





5810083544454830 FFA 
0c3140414C700875 35C 
1414187000044972 6AD 
40000€3159454E30 AOD 
OC7A0F7949400024 D85 
5554587000084A71 0E1 
40000C523A262D10 442 
0424587458400875 799 
1415187000094A70 AE9 
4000083544454830 E2D 
0C3140414C300074 195 
5655545000054071 4EC 
40000 SES 


7 TESTLEX ID#5C 104 octets 


0123456789ABCDEF sm 


45543545C4548502 362 
802E009341029078 6BC 
4D000C5415100000 A07 
F020000000000000 D2F 
043000FB0073000F OBE 
7354554054174554 3E2 
3545511FF8D91FB0 784 
B88338406B008883 AF1 
38508FBC6315DD31 EBF 


: 609E64D10017F8FD 232 


F8E010117F8FDF8E SFA 
010211880D011913 942 
710B1378F674D0AF CE 
2551860D02E30120 03D 
66001141131318F8 39C 
32FO0F 4c2 
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Prénom |_|_|_1_1 1 1_1_1_1_1_1_ILILILILILI Date de naissance |_|_|/|_|_1/1_|_| 
Adresse LIU RE LEE ET EELELLEELIELUELLELTCEU 
LEE LELELLEÉCELE EUR ECEUELECLLÉEU 
LÉ EEE RERR ET EU ECLEEELL) 
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Intérêts 
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mm 
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; 


Comment avez-vous connu PPC Paris ? 
RE 


EL 


Que recherchez-vous au sein de PPC Paris ? _ 
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——————————— 


Je souhaite adhérer au club PPC Paris Chapter conformément aux statuts de 
l'Association. Au mieux de ma connaissance, je déclare avoir Le droit de fournir 
tous Les programmes et informations que je vous enverrai (sans enfreindre des 
obligations de secret à l'égard d'autres personnes ou organismes) pour 
publication dans Le Journal de Liaison, sans obligations ni responsabilité 
d'aucune sorte (en cas d'utilisation frauduleuse) de La part des dirigeants de 
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Le montant de La cotisation s'élève à 350.00 F pour un an. 
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Veuillez envoyer toute correspondance à : 
PPC Paris Chapter, BP 604, 75028 Paris Cedex 01, France 


tr 


1” 


} 


y 


* 
L: 
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ENGLISH SUMMARY 
JPC 48 - OCTOBER 1987 


The letter in our letter corner on page 3 expresses the idea that it is necessary to have a very high technical 
skill to prepare an article for JPC. Clearly, this is not true : on the contrary if too many "high level" articles 
are published, there will be less members. This doesn’t mean that there will be no more technical articles. 


Next, on page 6, Michel Maupoux explains how to plot any function on the HP-28, even if an "undefined 
result" error OCCUrS. 


In the HP-41 column, Michael Markov presents us the first part of a very interesting series about the control 
of mass storage devices (especially the HP-9114A) from an HP-41 with Extended 1/0 Rom. 


Eric Gengoux gives us for the HP-75, a small routine useful to test whether a file is present or not. This is a 
clever use of a function from the 1/0 Rom. 


In the HP-71 column, you will find the fourth part of Jacques Baudier’s introduction to assembly language 
programming on the HP-71. This regular column is appreciated by many members. This series is a lot of 


work. 


Our Australian friend, Jack Elhay, presents us two small functions for the HP-71 he wrotes when he was a 
beginner. They should be interesting for anybody who wants to learn about assembly language. 


The next article provides us with a new version of DIVILEX (first published last year). 
On page 27, you will find the first article in a series by Olivier Arbey. It is inspired by an article by K. 
Dewdney in the French version of Scientific American. This is an interpreter of an hypothetical assembly 


language. The purpose of the game is to write two programs which try to kill the other. À program dies 
when it reaches a DAT instruction. Enjoy it ! 


Until next month, 


Happy Programming 


mn dois | 


EE 


